Переменные k и m описаны в программе как целочисленные. Определите значение m переменной после выполнения следующего фрагмента программы:
Begin
Dat[1] := 12; Dat[2] := 18;
Dat[3] := 16; Dat[4] := 15;
Dat[5] := 12; Dat[6] := 12;
Dat[7] := 10; Dat[8] := 13;
m := 0;
for k := 1 to 8 do
if Dat[k] > m then
begin
m := Dat[k];
end;
writeln(m);
var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.
№2
var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.
№4
var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;
writeln('Сумма введенных чисел: ', sum);
end.