Вопрос школьника по предмету Информатика
Составьте программы на языке паскаля (10 класс)
1.Дан двухмерный массив А ( размер произвольный). Элементы вводятся с клавиатуры. Вывести только четные элементы.
2.В заданном двухмерном массиве (3 на 3), подсчитать количество чисел которые при делении на 3 дают в остатке 2.
3.Найти сумму элементов двухмерного массива больших 30. Элементы вводятся с клавиатуры
Ответ учителя по предмету Информатика
Ответ:
1. program Hello;
var i,j:integer; A:array [1..10, 1..10] of integer;
begin
for i:=1 to 10 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 10 do for j:=1 to 10 do if A[i,j] mod 2 = 0 then writeln(A[i,j]);
end.
2. program Hello2;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=1 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=1 to 3 do for j:=1 to 10 do if A[i,j] mod 3 = 2 then c:=c+1;
writeln(c);
end.
3. program Hello3;
var i,j,c:integer; A:array [1..3,1..3] of integer;
begin
c:=0;
for i:=2 to 3 do for j:=1 to 10 do readln(A[i,j]);
for i:=2 to 3 do for j:=1 to 10 do if A[i,j-1] + A[i,j] > 30 then c:=c+1;
for i:=2 to 3 do for j:=1 to 10 do if A[i-1,j] + A[i,j] > 30 then c:=c+1;
end.
Похожие вопросы от пользователей
1. as efficient as, foam, water, class A, is, fires, not, extinguishing, in.
2. is, this, as efficient as, method, used by, the one, the fire department.
3. in, the soda – acid extinguisher, use, is, longer, common, no.
4. heat, in, of, the process, and, burning, are, light, released.
45 градусов к плоскости, а их проекции составляют между собой угол 120 градусов. Вычислите расстояние между концами наклонных.
С рисунком пожалуйста.