Дан двумерный массив целых чисел, i=10, j=15; заполняется - вопрос №3837441015 от Румия2403 26.05.2021 18:33

Question

Информатика: Дан двумерный массив целых чисел, i=10, j=15; заполняется случайными образом целыми числами от 0 до 100. определите сколько раз в нём случается элемент со значением х (х-задаётся пользователем).

Румия2403 · Answer

a:array[1..10,1..15] of integer;

i,j,k,x:integer;

begin

read(x);

k:=0;

for j:=1 to 15 do

for i:=1 to 10 do

a[i,j]:=random(101);

for j:=1 to 15 do

for i:=1 to 10 do

if a[i,j]=x then k:=k+1;

write(k);

end.