1) Написать программу, которая определяет номера строк двумерного массива A[1..6,1..4], в которых содержится хотя бы один нулевой элемент. 2) 5. Составить
10-11 класс
|
программу заполнения массива B[1..10] таким образом: элементы с нечетными индексами равны числу 2, а элементы с четными индексами равны числу 5.
1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.
Другие вопросы из категории
Читайте также
матрицы, содержащих хотя бы один нулевой элемент. (Помогите написать программы на с ++)
целочисленная прямоугольная матрица. Определить количество столбцов, содержащих
хотя бы один нулевой элемент.
Примечание: Размеры
массивов задаются именованными константами. Значения элементов массивов
вводятся с клавиатуры, генерируются случайным образом или инициализируются в
программе (значения по умолчанию). Способ задания элементов массива выбирается
пользователем. Все операции над массивами выполняются отдельными функциями.
Помогите плиззз на Pasca ABC
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.
вывести сумму элементов массива которые кратны 7 и оканчиваются на 5 .Гарантируется,что в исходном массиве есть хотя бы один такой элемент.
НА ЯЗЫКЕ ПАСКАЛЬ!!!!