Заполните матрицу из 8 строк и 5 столбцов случайными числами в интервале [-10;10] вывести её на экран. Найти сумму всех четных элементов
5-9 класс
|
var a:array [1..8,1..5]of integer;
s,i,k:integer;
Begin
randomize;
for i:= 1 to 8 do begin
for k:= 1 to 5 do begin
a[i,k]:= random(20)-10;
write(a[i,k]:3,' ');
if a[i,k] mod 2 = 0 then s:=s+a[i,k];
end;
writeln;
end;
writeln('s=',s);
End.
Помогите пожалуйста, кто знает как делать!) Заполнить матрицу случайными числами от 3 до 8. 4 строки 6 столбцов, в этой же матрице найти количество элементов больше 5. Добавить двойной цикл который покажет индекс всех семерок и восьмерок.
Другие вопросы из категории
ТЕСТИРОВАНИЯ КОМПЬЮТЕРА
ОБЕСПЕЧИВАНИЯ РАБОТОСПОСОБНОСТИ КОМПЬЮТЕРА
УМЕНЬШЕНИЯ ОБЪЁМА ФАЙЛОВ
1)создать каталог мин
2)открыть каталог мин
3)создать каталог 1
4)открыть каталог 1
5)создать каталог 11
6)подняться на один уровень вверх
7)создать каталог 2
8)подняться на один уровень вверх
9)создать каталог МАХ
Изобразите файловую структуру,которая будет сформирована на диске D:после совершения этих действий.
Читайте также
выделенные зеленым цветом. вот по первой картинке СЛЕВА. Вот что должно получиться:
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
Заполнить массив случайными числами в интервале от -10 до 10 и выполнить инверсию отдельно для 1 и 2 части.
Пример:
1 -2 6 -8 -3 | 5 -7 1 0 -4
-3 -8 6 -2 1 | -4 0 1 -7 5