Определить, сколько было дней, пригодных для купания

@Дарья_Дерр · Регистрация: 27.10.2013

Author24 — интернет-сервис помощи студентам

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

@Xo6ut · 04.02.2014, 18:39

Pascal

uses crt;
const n=31;
var a: array [1..n] of integer;
    i,k: byte;
    tk: integer;
begin
write('При какой темпереатуре вода пригодна для купания? '); readln(tk);
writeln('Внесите данные о температуре воды на Черноморском побережье:');
for i:=1 to n do
    begin
    write(i:2,'.09. температура воды: '); readln(a[i]);
    if a[i]>=tk then inc(k);
    end;
writeln(k,' дней пригодных для купания');
readln;
end.

@Дарья_Дерр 1 / 1 / 1 Регистрация: 27.10.2013 Сообщений: 59
		1
	Определить, сколько было дней, пригодных для купания 04.02.2014, 17:15. Показов 1902. Ответов 1 Метки нет (Все метки) Данные о температуре воды на Черноморском побережье за декаду сентября хранятся в массиве. Определить, сколько за это время было дней, пригодных для купания. 0

	04.02.2014, 18:39

Определить, сколько было дней, пригодных для купания

Решение