а) сформулируйте, что выполняет данная программа;
б) Напротив каждой строки программы или блока программы напишите, что он выполняет (блок можно выделить скобкой).
в) допишите строки программы, которые позволят найти количество элементов массива которые нечетные и делятся на 3 (в тексте программы поставьте *, там где должны стоять данные строки.

program p1;
var
f1,f2:text;
n,m,i,j,s,s1,s2:integer;
a:array[1..50,1..50] of integer;
begin
assign(f1,'input.txt');
assign(f2,'res.txt');
rewrite(f1);
write('Vvedite kolichestvo strok n=');
readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(f1,a[i,j]:2);
end;
writeln(f1,'');
end;
s:=0;s1:=0;
for i:=1 to n do
for j:=1 to n do
s:=s+a[i,j];

for i:=1 to n do s1:=s1+a[i,i];
s2:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if a[i,j] append(f2);
writeln(f2,'сумма = ',s,' s1= ',s1,' s2= ',s2);
close(f1);
close(f2);

end.

danilvlasov139    1   21.04.2020 21:12    2