Нужна прога в синтаксисе PASCAL ABCСоставить программку матрицу 10х10, заполненную случайным
Нужна прога в синтаксисе PASCAL ABC
Составить программу матрицу 10х10, заполненную случайным образом
Посчитать сумму частей основной диагонали
Найти количество частей lt; сумма/15
var
a:array[1..10,1..10] of integer;
i,j,summ,kol:integer;
begin
randomize
и тд
за ответ 30 баллов
Эльвира Чебакова
бл, я 30 ставил
Анатолий Яраков
ну, в общем, мне нужен на этом языке
Карина Борискова
у меня училка иной не воспримет
Алтоненко
Костя
но спасибо для тебя
Мирослава Зевахина
вот так)
1 ответ
Viktorija Topaz
PascalABC.NET 3.3 под девизом
"Памяти наших дедов посвящается..."
const
n=10;
var
a:array[1..n,1..n] of integer;
i,j,SumDiag,k:integer;
p:real;
begin
Writeln('*** Исходная матрица ***');
Randomize;
SumDiag:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
if i=j then SumDiag:=SumDiag+a[i,j];
Write(a[i,j]:4)
end;
Writeln
end;
for i:=1 to 4*n do Write('-');
Writeln;
Writeln('Сумма частей на основной диагонали ',SumDiag);
p:=SumDiag/15;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]lt;p then k:=k+1;
Writeln('Разыскиваемое количество частей ',k)
end.
Пример
*** Начальная матрица ***
95 37 30 21 83 -99 48 -40 49 -19
-66 -82 88 -24 70 14 -88 11 60 14
-72 -80 90 25 68 23 91 66 -54 52
33 16 25 -72 85 58 -39 44 8 -29
8 78 -79 51 50 -61 -13 -87 87 66
63 -45 94 -48 59 76 46 -94 53 -40
-90 81 -85 96 47 18 -8 61 -10 -87
-47 -33 -97 -10 -93 -51 98 -60 74 30
-63 78 79 -21 89 -21 21 -26 -31 -91
-88 -45 91 -51 -39 26 64 -75 -96 -67
----------------------------------------
Сумма частей на основной диагонали -9
Разыскиваемое количество элементов 46
"Памяти наших дедов посвящается..."
const
n=10;
var
a:array[1..n,1..n] of integer;
i,j,SumDiag,k:integer;
p:real;
begin
Writeln('*** Исходная матрица ***');
Randomize;
SumDiag:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
if i=j then SumDiag:=SumDiag+a[i,j];
Write(a[i,j]:4)
end;
Writeln
end;
for i:=1 to 4*n do Write('-');
Writeln;
Writeln('Сумма частей на основной диагонали ',SumDiag);
p:=SumDiag/15;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]lt;p then k:=k+1;
Writeln('Разыскиваемое количество частей ',k)
end.
Пример
*** Начальная матрица ***
95 37 30 21 83 -99 48 -40 49 -19
-66 -82 88 -24 70 14 -88 11 60 14
-72 -80 90 25 68 23 91 66 -54 52
33 16 25 -72 85 58 -39 44 8 -29
8 78 -79 51 50 -61 -13 -87 87 66
63 -45 94 -48 59 76 46 -94 53 -40
-90 81 -85 96 47 18 -8 61 -10 -87
-47 -33 -97 -10 -93 -51 98 -60 74 30
-63 78 79 -21 89 -21 21 -26 -31 -91
-88 -45 91 -51 -39 26 64 -75 -96 -67
----------------------------------------
Сумма частей на основной диагонали -9
Разыскиваемое количество элементов 46
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов