1) c e i
2) a2 b1 c1 d 2 e1
3) a)
program v7;
var v:integer;
begin
v:=7
end.
b)
program z30;
var z:integer;
begin
z:= z + 30;
end.
4) a)
program name;
begin
write("Тут пиши своё имя")
end.
b) program num4;
begin
write(400)
end.
5) a3 b2 c4 d1
6) хз надо исправлять ошибки или нет, но вот неправильные, которые вызовут ошибку
a c d
7) 2
8) 3 5 6 11 9 4 1 8 7 10 2
9) var a:integer; b,c,x:real;
begin
a:=7; b:=3; c:= a+b;
writeln('summa=',c);
c:= c/2; x:= a-c;
writeln('x=',x,' ','kvadrat=',x*x);
end.
На экран выйдет summa = 10.2
х = 1.9 kvadrat = 3.61
ответ:
uses crt;
var a: array[1..20,1..20] of real;
n,m,i,j: integer;
s: real;
begin
clrscr; randomize;
write('введите кол-во строк: '); readln(n);
write('введите кол-во столбцов: '); readln(m);
for i: =1 to n do
begin
for j: =1 to m do
begin
a[i,j]: =random(100)/10;
write(a[i,j]: 4: 1);
end;
writeln;
end;
for i: =1 to n do
begin
s: =0;
for j: =1 to m do
s: =s+a[i,j];
writeln('сумма ',i,'-ой строки: ',s: 0: 1);
end;
for j: =1 to m do
begin
s: =0;
for i: =1 to n do
s: =s+a[i,j];
writeln('сумма ',j,'-ого столбца: ',s: 0: 1);
end;
for j: =1 to m do
begin
s: =0;
if j mod 2 = 0 then
begin
for i: =1 to n do
s: =s+a[i,j];
writeln('среднее арифметическое ',j,'-ого столбца: ',s/m: 0: 1);
end;
end;
readln;
end.
объяснение:
