с информатикой. Написать программу:
Массив из 30 элементов заполнить случайным образом целыми числами от 0 до 10, найти сумму всех его элементов и вывести её на экран.
Я начала писать ( на фото), но не уверена и не знаю, что дальше
128
405
Ответы на вопрос:
Ты почти правильно все написала :)
var a : array[1..30] of integer; // определяем массив, который будет состоять из 30 чисел типа integer (целых)
i, sum : integer; // Переменная i для итерации в цикле, sum - для суммы
begin
sum := 0; //В начале сумма равна нулю
randomize(); //инизициализиуем датчик псевдослучайных чисел
for i := 1 to 30 do begin // цикл, который будет повторяться 30 раз
a[i] := random(0,10); // Говорим, что элемент с индексом i в массиве равен рандомному числу от 0 до 10
sum := sum + a[i]; // Прибавляем к переменной sum элемент массива с индексом i
end;
write('Сумма: ' + sum) //Выводим
end.
Популярно: Информатика
-
muskuss12Ирада21.06.2020 19:04
-
димон777714.05.2020 03:00
-
lyubashabelyaeva31.03.2021 11:26
-
srochno620.06.2022 04:43
-
3344227p06s5706.08.2020 22:09
-
iratupikp00q9c11.07.2020 13:50
-
Даниил98611.11.2022 20:46
-
Smazi20.01.2022 05:22
-
heyguys11221.09.2020 11:34
-
malia101123.05.2023 19:08