Можете проверить,а если не правильно,то исправить ? var a: array [1..10] of integer; i: integer; begin for i: = 1 to 10 do readln (a[i]); 239 if a[i]> 17 then; writeln (a[i]); end. само : . подсчитать количество элементов массива > 17. массив из 10 элементов.
mishakkkk
3
04.10.2019 15:40
2
Другие вопросы по теме Информатика
sdfdsgdfh
05.05.2020 14:44
karina694
23.05.2019 23:50
kachinlexa1999
23.05.2019 23:50
Anili
08.08.2019 01:10
Logikahaha
08.08.2019 01:10
Зайченок157895
05.05.2020 15:45
ніка2007
05.05.2020 15:45
lemenchuk2001
15.05.2020 09:25
ViolettaBazarova
01.02.2021 10:24
Популярные вопросы
- Впаралеллограмме острый угол 45°.из вершины тупого угла опущена высота ,длинна...
3 - Решить : исследовать функцию и построить график функции - f(x)=1/2x^ - 1/5x^5....
1 - 4.сторона основания правильной шестиугольной пирамиды равна 3м, а боковое...
3 - Язнаю веселые сказки таинственных стран. синтаксический разбор...
2 - Почему в североамериканских колониях были запрещены мануфактуры?...
3 - Как вы считаете, какая точка зрения на происхождение человека возникла первой?...
1 - Внутри треугольника выбраны две точки. расстояния от одной из них до сторон...
3 - Создание гитлеровской коалиции до 1945 года...
3 - Знайдiть рiвняння дотичноï до графiка функцiï f(x)=3x^2-x^3 у точцi з абсцисою...
3 - Пол комнаты, имеющей форму прямоугольника со сторонами 7 м и 10 м, требуется...
2
var
a: array [1..10] of integer;
i, kol: integer;
begin
kol := 0;
for i := 1 to 10 do
begin
readln(a[i]);
if a[i] > 17 then kol += 1;
end;
writeln(kol);
end.