Что ты хочешь узнать?
Испрвьте ошибкиProgram ZAD00; {}
uses crt;
var a,b:array[1..20] of real;
i,j:integer;
mina,minb,s:real;
Begin
{------------- заполнение массива А}
for i:=1 to 7 do begin write('введите элементы a[',i,']='); read(a[i]); end;
{------------- заполнение массива B}
for i:=1 to 9 do begin write('введите элементы b[',i,']='); read(b[i]); end;
{------------- min в массиве А}
mina:=a[1];
for i:=1 to 7 do begin
if a[i]
end;
{------------- min в массиве B}
minb:=b[1];
for i:=1 to 9 do begin
if b[i]
end;
{------------- сложение minA и minB}
s:=mina+minb;
{--------- вывод результатов на экран}
for i:=1 to 7 do begin write(a[i],' '); writeln;
for i:=1 to 9 do begin write(b[i],' '); writeln;
writeln('minA=',mina);
writeln('minB=',minb);
writeln('сумма их s=', s);
End.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
История - 5 лет назад
Литература - 5 лет назад
Русский язык - 5 лет назад
Русский язык - 5 лет назад
Русский язык - 5 лет назад
Физика - 5 лет назад
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.Войти