Лена в октябре ежедневно записывала показания температур в дневник наблюдений составьте программу, которая выводит количество дней с температурой меньше 0 градусов.
составьте компьютерную программу на языке Паскаль.
Ответы
Ответ дал:
0
два варианта : с массивом и без
с)
var a:array[1..100] or integer;
n[коммент от автора: кол-во дней],k,i:integer;
begin
readln(n) [коммент от автора: можно вручную записать если не дается];
For i:=1 to n do
read(a[i]);
k:=0;
For i:=1 to n do
If a[i]<0 then
k:=k+1;
writeln(k);
end.
БЕЗ МАССИВА
var n,k,c,i:integer;
begin
readln(n);
k:=0;
For i:=1 to n do
begin
c:=0;
readln(c);
If c<0 then
k:=k+1;
end;
writeln(k);
end.
с)
var a:array[1..100] or integer;
n[коммент от автора: кол-во дней],k,i:integer;
begin
readln(n) [коммент от автора: можно вручную записать если не дается];
For i:=1 to n do
read(a[i]);
k:=0;
For i:=1 to n do
If a[i]<0 then
k:=k+1;
writeln(k);
end.
БЕЗ МАССИВА
var n,k,c,i:integer;
begin
readln(n);
k:=0;
For i:=1 to n do
begin
c:=0;
readln(c);
If c<0 then
k:=k+1;
end;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад