Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
Ответ:
всё правильно сделал,
Объяснение:
в таблице все указано верно
Var
mas:array[1..100] of integer;
min,i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
min:=mas[1];
for i:=2 to 10 do
if mas[i]<min then
min:=mas[i];
mas[10]:=min;
for i:=1 to 10 do
write(mas[i],' ');
end.
Римские цифры
(Русские буквы - а,б,в,г и т.д.;
Латинские - a,b,c,d etc.;
Арабские цифры - 1,2,3,4 и т.д.;
Римские - <span>I <span>II </span><span>III </span><span>IV </span><span>V </span><span><span>VI и т.д.)</span></span></span>