Var a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.
сделать блок схему к этой программе
nastya2747
2
10.06.2021 15:06
0
Другие вопросы по теме Информатика
anonim869
17.10.2019 19:30
Наркодилер
22.08.2019 06:20
Крис5942314613
09.04.2019 00:40
001Карина11111
09.04.2019 00:09
Спасибо181
09.04.2019 01:24
dfyz2
09.04.2019 06:06
Sark23
09.04.2019 05:43
Этотникужезанят146
09.04.2019 07:09
Sidhfvdksisvejcnswk
09.04.2019 08:09
Популярные вопросы
- 9. На рынке каменного угля реализуется ежегодно 500 млн т. После вмешательства...
3 - На графіку 5x+2y=7 взятого точку з абсцисою три . Знайдіть ординату усієї...
2 - 2 аргумента почему нельзя исключать праздник Великая Отечественная война...
3 - Применяя интенсивную технологию, бригада изготовила сверх плана на 84 деталей...
3 - «Әлемдік өнеркәсіп өндірісіндегі елдердің үлесі (%)» диаграммасын талдаңыз.1900...
2 - Напишите на нотном листочке все тритоны от фа с указанием тональности....
3 - Як змінилпся потужність електричного струму в спіралі електроплитки якщо...
2 - З оповідання Дивак Григір Тютюник 1. Хто такий Олесь. 2. Вік хлопчика....
2 - Визначте речення, в якому вжито дробовий числівник.1. З п ятого кола червоний...
1 - 2. Допишите правильный ответ. Обращение Б.Пастернака к «большой прозе»...
3
var
a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.
Объяснение:
var
a:array[0..9, 0..9]of integer;
i, j, s : integer;
begin
randomize;
for i:=0 to 9 do begin
for j:= 0 to 9 do begin
a[i,j]:= random(50);
write(a[i,j],' ')
end;
writeln();
end;
s:=0;
for i:=0 to 9 do
if a[i,9-i] mod 3 = 0 then
s:=s+a[i,9-i];
writeln(s)
end.