Написать программу которая формирует одномерный массив ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ).
срочно
Pascal ABC срочно!
Ответы на вопрос
Ответил KoderX
0
uses crt;
var T: array [1..12] of real;
i:integer;
begin
{Цикл ввода}
for i:=1 to 12 do
begin
Write('Температура [',i:2,'] = ');
readln(T[i]);
end;
writeln();
{Поиск отрицательных элементов}
Writeln('Отрицательные температуры');
for i:=1 to 12 do
begin
if T[i]<=0 then
Writeln(T[i]);
end;
Readln();
end.
var T: array [1..12] of real;
i:integer;
begin
{Цикл ввода}
for i:=1 to 12 do
begin
Write('Температура [',i:2,'] = ');
readln(T[i]);
end;
writeln();
{Поиск отрицательных элементов}
Writeln('Отрицательные температуры');
for i:=1 to 12 do
begin
if T[i]<=0 then
Writeln(T[i]);
end;
Readln();
end.
Новые вопросы