BASIC: n=n+1
Pascal: n:=n+1;
Pascal.ABC: n:=n+1; n+=1;
C, C++: n=n+1; n++; ++n
Var rost :array[1..100] of integer;
n, i, k: integer;
begin
writeln('Введите общее количество участников');
readln(n);
for i:=1 to n do
read(rost[i]);
for i:=1 to n do
if (rost[i] >=180) then Inc(k);
writeln(k);
<span>end.
Пример входных данных
3
179 180 194<span>
Выходные данные
2</span></span>
<span>Строка №6 - числу нельзя присвоить какое нибудь значение.
Строки №8 и №10 - целочисленным нельзя присвоить дробное значение.
Строка №7 - между 7 и 8 должна стоять точка, а не запятая.
Вот изменённая программа:
program qq;
var a, b, x, y: real;
begin
a := 5;
x := 10;
y := 7.8;
b := 2.5;
x := 2*(a + y);
a := b + x;
end.</span>
RTFM - Read This Finest Manual (Прочтите это замечательное руководство)