1. Информатика
  2. Дано 5 чисел. определить сколько

Дано 5 чисел. определить сколько среди них положительных. составьте, программу в паскаль

chelsi09 chelsi09    1   21.05.2019 03:50    0

Ответы
Zandrew2000 Zandrew2000  15.06.2020 01:24

var a:array[1..5] of integer;

i,s:integer;

begin

s:=0;

for i:=1 to 5 do

read(a[i]);

for i:=1 to 5 do

if a[i]>0 then s:=s+1;

writeln(s);

end.

Вопросы, ошибки недочеты в ЛС!) 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sashabelousoydf1w sashabelousoydf1w  14.12.2020 16:18
сейчас комне пришли компюторшики проверели скорость интернета на своём пк там 100мб+ а у меня на пк 7мб+ в ограничит стоит 1гб подскажите что делать, ещё они проверили...
Igor2000Petrov Igor2000Petrov  14.12.2020 16:18
ответ дать на любом языке программирования, только в ответе написать что это за язык программирования...
Zangerange Zangerange  14.12.2020 16:19
нужно Создать одномерный массив А из 11 целых чисел (числа вводит пользователь с клавиатуры);Вывести на экран массив в виде строки чисел 2.создать одномерный массив...
алекей4 алекей4  07.04.2020 18:30
Что будет напечатано в результате выполнения следующей программы, если значение R=-10? readln (R); if R=0 then Y:=R*10; if R 0 then Y:=R+10; if R 0 then Y:=R-10;...
Рауза1951 Рауза1951  07.04.2020 17:50
4. Напишите код программы, которая будет вычислять периметр фигуры. print () a=... b=... c=... p=... print (...) Дескриптор...
ayshahajiverdiyeva ayshahajiverdiyeva  20.05.2019 14:20
Вопрос: компьютер может варианты ответов: техническими устройствами,обществом и группами людей,неживыми объектами,самим собой,полётом ракет и самолётов, и планетами,...
ShamilAshimbaj ShamilAshimbaj  20.05.2019 14:20
N- натуральное трехзначное число. верно ли, что хотя бы цифра этого числа четная? нужно написать код на паскале!...
Vaprosic Vaprosic  20.05.2019 14:10
Составить две программы на языке паскаля с операторов цикла до и пока,которые будут вводить целые числа(до тех пор,пока не будет введен ноль),подсчитывать сумму и...
Жанниет Жанниет  25.09.2019 15:30
Кнопка об єднати і помістити в центрі сто она делает ! 15 б...
kazymbietova71 kazymbietova71  13.05.2020 10:26
До ть будь ласка з математикою, потрібно розв язати одну з двох самостійних, дуже...

Популярные вопросы