Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 23.02.2019
Сообщений: 5
1

В массиве хранятся сведения о кол-ве осадков

20.04.2019, 17:51. Показов 304. Ответов 2
Метки нет (Все метки)

В массиве хранятся сведения о кол-ве осадков, выпавших на каждый день июня. Определить общее кол-во осадков, выпавших за каждую декаду месяца.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.04.2019, 17:51
Ответы с готовыми решениями:

В массиве хранятся сведения о количестве осадков, выпавших за каждый день сентября
Составить и решить задачу на PascalABC.NET: В массиве хранятся сведения о количестве осадков,...

В массиве хранятся сведения о количестве осадков. Определить общее количество осадков
2. В массиве хранятся сведения о количестве осадков, выпавших за каждый день января. Определить...

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

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

__________________
2
4315 / 2085 / 2110
Регистрация: 10.12.2014
Сообщений: 8,061
20.04.2019, 18:01 2
Pascal
1
2
3
4
5
6
begin
  var a:=ReadArrReal(30);
  a[:10].Sum.PrintLn;
  a[10:20].Sum.PrintLn;
  a[20:].Sum.Println;
end.
0
109 / 68 / 46
Регистрация: 13.01.2019
Сообщений: 288
20.04.2019, 18:09 3
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
Uses Crt;
const
n=30;
var
a: array [1..n] of integer;
s:integer;
begin
writeln('osadki:');
for var i:=1 to n do begin
a[i]:=random(31);
write(a[i]:4); end;
writeln;
s:=0;
for var i:=1 to n-20 do begin
s:=s+a[i]; end;
writeln('summ 1 dekady=',s);
s:=0;
for var i:=n-20 to n-10 do begin
s:=s+a[i]; end;
writeln('summ 2 dekady=',s);
s:=0;
for var i:=n-20 to n do begin
s:=s+a[i]; end;
writeln('summ 3 dekady=',s); 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2019, 18:09

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

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


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

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

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