Найдите количество элементов двумерного массива a[1..5,1..5] равных 1. массив заполните случайными числами в диапазоне от -10 до 10. вывести массив на экран в виде таблицы и количество элементов равных 1.

208

412

Посмотреть ответы 2

Ответы на вопрос:

никанана

Информатика

4,4(46 оценок)

Var a: array[1..5,1..5]of integer; i,j,k: integer; begin for i: =1 to 5 do begin writeln; for j: =1 to 5 do begin a[i,j]: =random(21)-10; write(a[i,j]: 4); if a[i,j]=1 then k: =k+1; end; end; writeln; if k=0 then writeln('нет =1') else writeln(k); end.

nek2017pro

Информатика

4,8(58 оценок)

Program diapozon; var a: array [1..20] of integer; x: integer; i: shortint; begin randomize; for i: = 1 to 20 do a[i]: = random(-20,60); write('введите число, которое нужно проверить > > '); readln(x); for i: = 1 to 20 do if(a[i] = x) then begin writeln('это число есть в массиве'); exit; end; writeln('этого числа нет в массиве'); end. //программа создаст массив из 20 элементов с числами от -20 до 60 и проверит есть ли в нем число, заданное пользователем. выведет пояснение.