Универ 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.
Башҡортостан республикаһы территорияһы сағыла байтаҡ резкие различия рельеф, климат, тупраҡ һәм растительность. Шуға күрә аттар, приведение үҙе менән башкирами ваҡытта үҙенең переселения тейеш ине, йәшәргә һәм алға приспособиться яңы һәм төрлө бик шарттарға эсендә. Бынан тыш, мәғариф баш күтәреүселәр яҡшы тоҡомло аттар күрһәтте күпмелер үҙ йоғонтоһо аттар, улар башҡорттар застыли яңы урында, аттар, улар попадала был яҡҡа последующем ваҡытта. Процесста формалаштырыу башҡорт яҡшы тоҡомло аттар сказали торған һәм ул үҙгәрештәр уҙыуын, тормошта халҡының, айырым алғанда килеп сығыуы горнозаводской сәнәғәт һәм игенселек. Моның менән бер рәттән искони туп-тулы етештереү һаҡлап ҡалырға, үҙ әһәмиәте. Үҫтереү хлебопашество һәм горной сәнәғәт предъявляет Көньяҡ Урал т коневодство запростары был ат, приспособление эшкә пряжи, бигерәк тә боҙа һәм почта тракты. Хәрби мәнфәғәттәрен царского хөкүмәте, киреһенсә, требовать ат, ярау итеп седло өсөн уральских казачьих һәм айырым башҡорт ғәскәрҙәренең.
прибор для измерения скорости движения газов, воздуха в системах, например, вентиляции. В метеорологии применяется для измерения скорости ветра
Вот простой способ только сейчас нарисовала !!!