Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
бегин вар програм конст енд+
бегин програм конст енд
бегин вар енд
Объяснение:
думаю так
программа на паскале:
program a1;
var i, j : integer;
s : real;
a: array [1..5, 1..6] of real;
b: array [1..6] of real;
begin
for i: =1 to 5 do
for j: =1 to 6 do
readln(a[i,j]);
s: =0;
for : =1 to 5 do
s: =s+a[i,j];
b[j]: =s
end;
write ('полученный массив в: ');
for j: =1 to d do
write(b[j]);
readln
end.
program p;
var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.
Популярные вопросы