помогите плиз составить задачу )))в массиве хранится информация о среднедневной температуре декабря. составьте программу, которая подсчитает, сколько в
5-9 класс
|
декабре было дней с нулевой, отрицательной и положительной температурой
program xxx;
var i, m, p, n : integer;
t : array[1..31] of real;
begin
writeln('введите температуру ')
for i:=1 to 31 do
readln(t[i]);
m:=0; p:=0; n:=0;
for i:=1 to 31 do
begin
if t[i]<0 then m:=m+1;
if t[i]>0 then p:=p+1;
if t[i]=0 then n:=n+1
end;
writeln('Дней с отрицательной температурой было - ', m);
writeln('Дней с положительной температурой было - ', р);
writeln('Дней с нулевой температурой было - ', n);
readln
end.
Другие вопросы из категории
2.Что такое "данные" для компьютера?
3. Что такое "контроллёр"?
Действие компьютерного вируса состоит в том, что вместо букв "б", "в", "л", "о", "т" печатаются цифры, кроме цифры 0, причем разным буквам соответствующие разные цифры.
Выясните какие цифры каким буквам соответствуют, если известно, что:
1) сумма цифр слова "бот" равна 8;
2) сумма цифр слова "вол" равна 9;
3) сумма цифр слова "болт" равна 11;
4) сумма цифр слова "лото" равна 12.
системы для персональных компьютеров. Что это?
2. С помощью этого коня ахейцы одержали победу над царем Приамом. Сегодня так называют один из самых известных компьютерных вирусов. О каком вирусе идет речь?
3. В одной многодетной семье у каждого из пяти сыновей было по три сестры. Сколько детей в этой семье?
4. Вписав недостающее пятое число, завершите ряд: 77, 49, 36, 18 ....
Читайте также
отрицательной и положительной температурой.
Программа должна спрашивать:
- сколько человек было поставлено на заявку.
- сколько человек присутствовало на занятиях.
- сколько стоит обед для одного учащегося.
Помогите пожалуйста, очень нужно, только правильно, заранее спасибо.
дешевого(дорогого) товара и его индекс.
вот программа но в ней где-то ошибка
program xxx;
var a:array [1..10] of integer;
i, max, min:integer;
begin
for i:=1 to 10 do read(a[i]);
min:=1;
for i:=2 to 10 do
if a[i]<min then min:=a[i];
writeln('a[',i,']=',a[i]);
max:=a[i];
for i:=2 to 10 do
if a[i]>max then max:=a[i];
writeln('a[',i,']=',a[i]);
end.
на паскале:
заполнить массив из 12 целых числе данных из клавиатуры.Найти сумму и кол-во всех отрицательных числе массива, заменить все числа которые больше десяти нулями.Вывести полученный массив на экран.
СПС за ранее как можно быстрее!
Например: В рулетке общее кол-во штук 64. Какое кол-во информации мы получим в зрительном сообщении об остановке шарика в одной из лунок?
Дано: Решение:
N=64 N=2i
64=2i
64=26
i=? i=6 бит