• Испрвьте ошибки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.

Ответы 1

  • готово, больше не смогу, прости, не успею
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years