Найти общее число осадков, выпавших по четным числам месяца

@Oneill · Регистрация: 30.11.2011

Привет.
Друзья, помогите с задачкой.

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

Заранее всем спасибо.!!!

@SladkayaVata · 11.06.2012, 16:21

Pascal

const n=28;
Type mas=array[1..n] of integer;
var b,i:integer; a:mas;
Procedure init_mas(var a:mas);
var i:integer;
begin
for i:=1 to n do
readln(a[i]);
end;
begin
writeln('Введите данные (0 - не было осадков, любое другое число не равное 0 - осадки были)');
init_mas(a);
for i:=1 to n do
if i mod 2 = 0 then begin
if a[i]>0 then inc(b); end; writeln;
writeln('Общее число осадков за февраль ',b);
end.

Пиши точнее) что нужно) я понял так : посчитать общее число четных дней в феврале когда были осадки

или нужно было посчитать именно количество осадков за месяц? а не количество дней когда были осадки?)))

@Oneill · 11.06.2012, 22:00 **[ТС]**

Извини я незнаю как точнее, так задача гласит)))
Спасибо за внимание но программа не корректно работает. При компиляции даже первый врителн не высвечивается

@КонецСвета · 11.06.2012, 22:10

Pascal

uses crt;
var f: array [1..28] of integer;
    i: byte; s: integer;
begin
writeln('Внесите данные о количестве осадков за каждый день:');
s:=0;
for i:=1 to 28 do
    begin
    write(i:2,'.02 ');readln(f[i]);
    if i mod 2=0 then s:=s+f[i];
    end;
writeln('Количество осадков, выпавших по четным дням,=',s);
readln;
end.

@Oneill 5 / 5 / 1 Регистрация: 30.11.2011 Сообщений: 238 Записей в блоге: 1
		1
	Найти общее число осадков, выпавших по четным числам месяца 10.06.2012, 21:21. Показов 1225. Ответов 3 Метки нет (Все метки) Привет. Друзья, помогите с задачкой. Известны данные о количестве осадков выпавших за каждый день февраля. Найти общее число осадков, выпавших по четным числам месяца Заранее всем спасибо.!!! 0

@Oneill 5 / 5 / 1 Регистрация: 30.11.2011 Сообщений: 238 Записей в блоге: 1
	11.06.2012, 22:00 [ТС]	3
	Извини я незнаю как точнее, так задача гласит))) Спасибо за внимание но программа не корректно работает. При компиляции даже первый врителн не высвечивается 0

Опции темы