Program sorevnovanie; war n, i, r: integer; a: array [1.. 100] of integer; begin writelen ('программа определения победителя в соревнованиях по броскам мяча в корзину. выведите количество участников'] readln (n); for i: =1 to n do begin write ('результат участника №', i, ': '); readln (a[i]); end; r: =1; for i: =2 to n do if a[i]> a[r] then r: =i; write ('победил участник под номером ', r); почему программа abc net пишет: "встерчено 'var', а ожидалось begin
ева518
3
03.10.2019 12:10
0
Другие вопросы по теме Информатика
SAA0807
22.07.2019 15:30
VicktoriaGra
15.02.2020 15:06
казан2
03.10.2019 21:01
pveronika0808
03.10.2019 21:01
savichc
03.10.2019 21:01
VladislavaForster
21.04.2020 23:50
America555
21.04.2020 23:50
lovedeutschlan
21.04.2020 23:50
Популярные вопросы
- |х^2-9|+|х^4+25|=|х^2-25|+|х^4+9| решите 20б...
3 - Всматриваясь в березовый лес, в узловатые его стволы, вспоминаешь мозолистые,...
1 - Чем отличается постоянный ток от переменного?...
3 - Решите уравнение 27^((1- cos (2х) + cos^2 (2х) - cos^3 (2х) +⋯+ (-1)^n...
3 - 30 ! напишите текст на тему «мой любимый школьный предмет» за этим образцом:...
3 - Как вы понимаете финал повести гоголя тарас бульба : да разве найдутся...
1 - Двадцать пять зверят: лисята и зайчата, встали в круг и взялись за руки....
2 - Самая интересная смешная школьная кто ответетправильно подпишусь пролайкою...
1 - Краткое описание арвести харпера ли убить пересмешника...
2 - Дан куб abcd a1b1c1d1 плоскостью альфа проходит через прямую ab и точку...
2
program Sorevnovanie;
var
n, i, r:integer;
a: array [1.. 100] of integer;
begin
writeln ('Программа определения победителя в соревнованиях по броскам мяча в корзину. Выведите количество участников');
readln (n);
for i:=1 to n do
begin
write ('Результат участника №', i, ':');
readln (a[i]);
end;
r:=1;
for i:=2 to n do
if a[i]>a[r]
then r:=i;
write ('Победил участник под номером ', r);
end.
Может потому что она не правильно написана, попробуй вот так