Помогите найти ошибку в коде (синтаксическую) ((
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)
Помогите с ответом
Помогите решить - теплоход за два дня был в пути 12 часов. В первый день он прошел 256 км., а во второй - 128 км. Сколько часов теплоход провел в пути в каждый из этих дней, если он двигался с одинаковой скоростью?
Нет ответа
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа