Помогите найти ошибку в коде (синтаксическую) ((
var i, max, min, imax, imin, sum, kol:longint;
a:array [1 ... 100000] of longint;
begin
i:=0;
max:=0;
min:=maxint;
sum:=0;
kol:=0;
repeat
i:=i+1;
readln (a[i]) ;
while a[i]0 do begin
if a[i] mod 2=0 then
begin
kol:=kol+1;
sum:=sum+a[i];
if a[i]>max then
begin
max:=a[i];
imax:=i;
end;
if a[i] begin
min:=a[i];
imin:=i;
end;
end;
end;
write ('Количество чисел:', kol,', сумма чисел:', sum,', максимальное из чисел: ', max,', номер максимального числа:', imax,', минимальное из чисел', min,', номер минимального числа:', imin) ;
end.
Ответы (1)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите найти ошибку в коде (синтаксическую) (( var i, max, min, imax, imin, sum, kol:longint; a:array [1 ... 100000] of longint; begin ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Составить блок-схему к данному коду Var Min, Max, i, m, n:Integer Begin Readln (n) ; max:=-maxint-1; min:=maxint For I:=1 to n do begin ReadLn (m) ; If (m>max) then max:=m; If (m end; Writeln (max,' ', min) ; End.
Ответы (1)
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
5. Нахождение минимального числа из введенных. Program MIN; Var A, I : Integer; Min : Integer; Begin Min:=32767; For I:=1 to 10 do Begin Write ('Vvedi chislo ') ; Readln (A) ; If A < Min then Min:=A; end; Writeln ('MIN=', Min) ; Readln; end.
Ответы (1)
Помогите составить блок схему из алгоритма паскаля? Вот алгоритм var a:array[1 ... 10] of integer; N, K, L, i, Sum:Integer; begin Write ('N: ') ; Readln (N) ; Write ('K: ') ; Readln (K) ; Write ('L: ') ; Readln (L) ;
Ответы (1)
Var sum, a, num:integer begin sum: = 0; num:=0; readln (a) ; while ado begin sum:=sum+a if (a mod 2=0) and (a mod 5=0) then num: = num+1 readln (a) end; writelh (sum), writelh (num) end.
Ответы (1)
Помогите с ответом
Какая масса алюминия прореагирует с хлоридной кислотой, если при этом выделится пять моль водорода?
Нет ответа
вывести формулу расчёта для решения задач типа: сколько граммов соли нужно добавить к А г а %-го раствора этой соли для получения в %-го раствора?
Нет ответа
Уравнения реакций взаимодействия пропена с водородом, бромом, бромоводородом
Нет ответа
Запишите уравнения реакций дегидрирования пропана и бутана и попробуйте дать названия продуктам по аналогии с этиленом.
Нет ответа
Аргументы за и против того что Слова категории состояния являются самостоятельной частью речи
Нет ответа