Задание:
Ввести двумерный массив А (3 х 4). Определить в нем количествоэлементов, квадрат которых больше 25
Решение:
Uses crt; const n=3; m=4; var a: array[1… n,1… m] of integer; i,j,k: integer; beginfor i: =1 to n dobeginfor j: =1 to m doreadln (a[i,j]); writeln; end; writeln; k: =0; for i: =1 to n dofor j: =1 to m doif (a[i,j]*a[i,j]>25) then inc (k); writeln (k); end.
Знаете другой ответ?