tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму пяти элементов
Найти сумму пяти элементов массива случайными числами из интервала [-20; 20] массивом
mashakesea03
2 27.08.2019 18:40
1
Ответы
Makaezhik02
31.08.2020 22:37
Const
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
Begin
A[i]:=random(41)-20;
Write(' ',A[i]);
S:=S+1;
End;
WriteLn;
WriteLn('Сумма элементов: ',S);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
bestsoule
19.08.2019 12:40
Скорость передачи информации 1200 бит/с. за сколько секунд данные модем передаст информацию состоящий из 3000 бит?...
Тимофейзъ
11.08.2019 16:50
Создать программу. которая при вводе возраста человека от 1 до 100 лет выводит на экран этот возраст с последующим словом год или года или лет...
777stepan777
11.08.2019 16:50
Ктонибудь объясните как решать. по каналу связи сообщения, содержащие только 4 буквы: л, е,т, о; для передачи используется двоичный код, допускающий однозначное декодирование. для...
doinak88
06.10.2019 17:02
1. верно ли утверждение, что каталог это файл? 2. сколько в вычислительной системе текущих (рабочих) каталогов? 3. какую информацию содержит каталог? 4. что какое корневой каталог?...
13913
06.10.2019 17:02
50 ! ! на компакт-диске объёмом 800 мбайт размещён фотоальбом, каждое фото в котором занимает 400 кбайт, при этом фотоальбом занимает весь диск полностью. просмотр каждой фотографии...
uliatuchakrom9
06.10.2019 18:20
Дано слово полиморфизм . используя буквы входящие в это слово в качестве алфавита (только заглавные буквы, при этом каждая буква кодируется минимальным возможным целым количеством...
fdods2
06.10.2019 18:20
Число от 0 до 200 задается случайным образом. если в числе одна цифра, то возвести в квадрат, если две цифры, то извлечь квадратный корень, если три цифры, то найти сумму его цифр....
ELIZA200425
31.03.2019 01:30
Текст занимает 5 страниц. на каждой странице размещается 5 строк по 70 символов в строке. какой объем оперативной памяти (в битах) займет этот текст?...
89622356703
23.05.2019 18:00
Решить в turbo pascal. вывести на экран все двухзначные числа в которых старшая цифра отличается от младшей не больше чем на 1(с оператора for)....
Aleksandra66611
16.04.2019 23:20
Найдите радиус круга, если площадь сектора этого круга равна 7,5п см2, а центральный угол, соответствующий этому сектору, — 108...
Популярные вопросы
Автобус и грузовая машина, скорость которой на 19км.ч. больше скорости автобуса,...
2
В треугольнике ABC с тупым углом C проведены высоты AX и BY. Докажите, что треугольники...
1
Поставте розділові знаки: 1.Ще той папір від часу не зотлів і пам ятка лишилась...
2
Какой характер имеет каждая часть фортепианного цикла детский уголок...
3
1. Монгольское военно-кочевое государство было образовано в: а) 1216 г.; б) 1206...
2
Решение какого из данных неравенств изображено на рисунке 192Рис. 1192) х2 – 64...
3
Верны ли следующие суждения об особенностях трудовой деятельности несовершеннолетних...
3
2. Выбери общие характеристики для 1 молекулы сахара и 1 г сахара: цвет агрегатное...
1
Завершите следующие предложения:•прочитав рассказ ,,Судьба человека я поняла...•...
3
Хэлп Найдите глаголы в стихотворении и образуйте гл. в ПН, , выделите графически...
2
N = 5;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исхдный массив:');
For i:= 1 to N do
Begin
A[i]:=random(41)-20;
Write(' ',A[i]);
S:=S+1;
End;
WriteLn;
WriteLn('Сумма элементов: ',S);
End.