Ответы на вопрос:
универ soloby
для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов. (программа паскаль)
для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов.
спросил 1 час назад от cevka в категории егэ (школьный)
решение вопроса
0
uses crt;
const n=5;
var a: array[1..n,1..n]of integer;
i,j,max,k,t: integer;
begin
clrscr;
randomize;
writeln('исходный массив');
for i: =1 to n do
begin
for j: =1 to n do
begin
a[i,j]: =random(100);
write(a[i,j]: 3);
end;
writeln;
end;
write('k -> ');
readln(k);
max: =-1;
t: =0;
for i: =1 to n do for j: =1 to n do if a[i,j] mod k=0 then
begin
inc(t);
if a[i,j]> max then max: =a[i,j];
end;
write(k);
writeln('max=',max);
readln;
end.
Популярно: Математика
-
Valeria071020.04.2020 05:16
-
226174729.09.2022 01:34
-
даша08422.11.2022 12:33
-
маринэджан11.05.2020 05:40
-
mstatyankasor12.08.2020 14:27
-
ащиза01.12.2020 00:00
-
zhanik201716.04.2021 01:47
-
Angel2к1723.11.2022 14:23
-
55666788801.09.2022 00:06
-
Малика2507200206.07.2021 16:15