Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;
Смотри одинарная стрелка(в одну сторону) это устройства вывода информации(от компьютера), ввод (к компьютеру), а двойная это как и ввод, так и вывод информации.
Одинарные стрелки(к компьютеру):
сканер, веб-камера, микрофон, мышь, джойстик, тачка
Одинарные стрелки(от компьютера):
колонки, монитор, принтер, наушники, встроенный динамик
Двойные стрелки:
модем, дисковод
Var a:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
writeln ('Стоимость 2 пирожков = ',a*2);
writeln ('Стоимость 3 пирожков = ',a*3);
writeln ('Стоимость 4 пирожков = ',a*4);
writeln ('Стоимость 5 пирожков = ',a*5);
writeln ('Стоимость 6 пирожков = ',a*6);
end.
Если нужна программа с n кол-во пирожков, где n вводится с клавиатуры, то вот:
var a,n:real;
begin
write ('Введите стоимость 1 пирожка: ');
readln (a);
write ('Введите кол-во пирожков: ');
readln (n);
writeln ('Стоимость ',n,' пирожков = ',a*n);
end.
Var
s: integer;
mas: array[1..4]of integer;
begin
s := 0;
for var i := 1 to 4 do
begin
mas[i] := 2 * i;
s := s + mas[i];
end;
writeln(s);
end.
Ответ:20
