Пожалуйста помогите Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет сумму элементов массива с четными значениями.
Нет комментариев
Ответы
Гость Randomize;
integer summ, array[1..10];
summ := 0;
for I := 1 to 10 do begin
array[I] := random(10)+1;
end;
for j := 1 to 10 do begin
if array[j] mod 2 == 2 do begin
summ += array[j];
end;
end;
4 комментария:
Комментарий удален
нечаянно отправил
Комментарий удален
не выпендривайся, плес. синтаксис паскаля я не знаю, так что поправишь, если что.
Комментарий удален
нечаянно отправил
Комментарий удален
не выпендривайся, плес. синтаксис паскаля я не знаю, так что поправишь, если что. Похожие вопросы
Информатика
ПАМОГИТЕ 8 предложения...
Информатика
Помогите плиз построить таблицу...
Информатика
Помогите с 1,2,3 заданием СРОЧНООО...
Список предметов
