Испрвьте ошибкиProgram ZAD00; uses crt;var a,b:array[1..20] of real;

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

Задать свой вопрос
Нортдиная Любовь
if a[i]
Анжелика Солохненко
ахаха ))
Gennadij Poelenkov
чувак тут оценка за четверть решается ну и мой атеста я на все готов
Artjom Chebanjuk
у меня 4, кек
Валентина Авуль
новые переменные вводить можно?
Константин Садритдинов
я тоже желаю но учитель гамонкул
Клыжук Маша
бл наверняка я хз
Aleksandra Salerjan
я в панике 9 часов мне ему надобно выслать остался час
Кущаева Инна
нехватает end
Лидия Куренина
а вот если я ссылку дам посмотришь еще одно?
1 ответ
Program ZAD00; uses crt;
var a,b:array[1..20] of real;
i: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
a[8]:= 32767 ;
if (a[i]gt;= a[i+1]) and (a[i+1]lt;=mina) then mina:=a[i+1]  end;
------------- min в массиве B
minb:=b[1];
for i:=1 to 9 do begin
b[10]:=32767;
if (b[i]gt;= b[i+1]) and (b[i+1]lt;=minb) then minb:=b[i+1]  end;
------------- сложение minA и minB
s:=mina+minb;
--------- вывод результатов на экран
for i:=1 to 7 do begin write(a[i],' '); writeln; end;
for i:=1 to 9 do begin write(b[i],' '); writeln; end;
writeln('minA=',mina);
writeln('minB=',minb);
writeln('сумма их s=', s);
End.
Esenija Soljankova
готово, больше не смогу, прости, не успею
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт