Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
FIREMAX
1 / 1 / 0
Регистрация: 21.05.2012
Сообщений: 7
1

Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массивах. Определить количество осадков, выпавших в виде дождя и в в

22.05.2012, 20:20. Просмотров 1507. Ответов 2
Метки нет (Все метки)

Спасайте , на языке Паскаль, завтро экзамен =((

Добавлено через 1 минуту
БУДУ ОЧЕНЬ БЛАГОДАРЕН ПОМОГУ И ВАМ =))
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2012, 20:20
Ответы с готовыми решениями:

Данные о температуре воздуха и количестве осадков за декаду апреля хранятся в массива
Буду плагодарен за решение, просто хочу узнать как её решить , сам решал не получилось))) Заранее...

Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду
Помогите плиз написать программу на массив) Данные о температуре воздуха и количестве осадков за...

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

Определить количество осадков, выпавших в виде дождя и в виде снега за эту декаду. Найдите ошибку в задаче
Сделал задачу но она не совсем правильно работает.Помогите найти ошибку Данные о температуре...

Известны данные о количестве осадков, выпавших за каждый день февраля. Какого числа выпало самое большое количество осадков?
Ребята плиз очень прошу, нужно написано в паскале. Тема:Использование вложенных циклов и...

2
nnneeeooo30
38 / 12 / 1
Регистрация: 02.04.2012
Сообщений: 91
Записей в блоге: 1
23.05.2012, 22:06 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var a:array[1..100] of integer;
n,i,j,max,min,m,temp,k:byte;
sum,sr:real;
begin
writeln('Введите количество температур');
readln(n);
writeln('Введите саму температуру');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
writeln('Данная декада');
for i := 1 to n do
write(a[i]:3);
writeln;
for i:= 1 to n do
begin
sum:=sum + a[i];
inc(m); end;
sr:= sum/m;
writeln('среднее значение = ', sr:2);
for i:=1 to n do
if a[i]>sr then inc (k);
writeln('температура была выше средней ',k, ' раз(а)');
end.
1
nnneeeooo30
38 / 12 / 1
Регистрация: 02.04.2012
Сообщений: 91
Записей в блоге: 1
29.05.2012, 17:29 3
Нужна помошь с физикой вот ссылочка Вычислить количество теплоты, полученной при сгорании M г керосина, если его теплота сгорания q
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2012, 17:29

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков,...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков,...

Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца
11.57. Известны данные о количестве осадков, выпавших за каждый день февраля. Найти общее число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.