Дан двумерный массив целых числе i=10 j=15, Заполняется случайным образом целыми числами от 0до 100. 1) Определить сколько раз в нем встречается
10-11 класс
|
элемент со значеием х. х задается прользователем
2) Определить количесво четных элементов массива.
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
Другие вопросы из категории
среднее арифметическое элементов массива.
Читайте также
значением Х (Х-задаётся пользователем).
на 3(на языке Паскаль).
в)произведение элементов,кратных 3.
3) Количество четных цифр в нем.
желательно в Basic. но можно и паскаль