1.Напишите программу для решения задачи с использованием линейного массива:Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите среднюю температуру для дней, когда температура поднималась выше нуля градусов. Определите количество таких дней. Гарантируется, что за время наблюдения хотя бы в один из дней температура поднималась выше нуля градусов.Программа получает на вход количество дней, в течение которых проводилось наблюдение N (1 ≤ N ≤ 31), затем для каждого дня вводится температура.Пример работы программы:Входные данные Выходные данные4–512–28 10.022.Напишите программу для решения задачи с использованием линейного массива:Ученики 4 класса вели дневники наблюдения за погодой и ежедневно записывали дневную температуру. Найдите самую низкую температуру за время наблюдения. Если температура опускалась ниже –15 градусов, выведите YES, иначе выведите NO.Программа получает на вход количество дней, в течение которых проводилось измерение температуры N (1 ≤ N ≤ 31), затем для каждого дня вводится температура.Пример работы программы:Входные данные Выходные данные4–512–28 –5NO
Ответы
// PascalABC.NET 3.0, сборка 1128
begin
var k:=ReadInteger('Укажите номер записи k:');
var a:=ReadLines('T1.txt').Select(x->Length(x)).
Where(x->x<>0).ToArray;
var n:=a.Length;
if k>n then Writeln('В файле записей меньше, чем ',k)
else Writeln('Сумма равна ',a.Min+a[n-k+1])
end.
А теперь "школьный вариант"
// PascalABC.NET 3.0, сборка 1128
var
t:text;
min,l,m,n,k:integer;
s:string;
begin
k:=2; // вторая от конца запись
Assign(t,'T1.txt'); Reset(t);
min:=1000; m:=0;
while not Eof(t) do begin
ReadLn(t,s); Inc(m);
l:=Length(s);
if (l>0) and (l<min) then min:=l
end;
Close(t); Reset(t);
k:=m-k+1;
if k<1 then Writeln('В файле нет стольких строк')
else begin
m:=0;
while m<>k do begin Readln(t,s); Inc(m) end;
Writeln('Сумма равна ',min+Length(s))
end;
Close(t)
end.
begin
var k:=ReadInteger('Укажите номер записи k:');
var a:=ReadLines('T1.txt').Select(x->Length(x)).
Where(x->x<>0).ToArray;
var n:=a.Length;
if k>n then Writeln('В файле записей меньше, чем ',k)
else Writeln('Сумма равна ',a.Min+a[n-k+1])
end.
А теперь "школьный вариант"
// PascalABC.NET 3.0, сборка 1128
var
t:text;
min,l,m,n,k:integer;
s:string;
begin
k:=2; // вторая от конца запись
Assign(t,'T1.txt'); Reset(t);
min:=1000; m:=0;
while not Eof(t) do begin
ReadLn(t,s); Inc(m);
l:=Length(s);
if (l>0) and (l<min) then min:=l
end;
Close(t); Reset(t);
k:=m-k+1;
if k<1 then Writeln('В файле нет стольких строк')
else begin
m:=0;
while m<>k do begin Readln(t,s); Inc(m) end;
Writeln('Сумма равна ',min+Length(s))
end;
Close(t)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Скажите, чем отличается windows px от windows 2000 или nt?
Автор: olgakuz00261
Напишите программу на языке паскаль к уравнению z=|x-x^n|
Автор: borisrogovpr3407
1. Берём число 47, видим, что без остатка на 2 его разделить не получится, поэтому вычитаем 3. Получаем число 44. Мы использовали команду 1.
2. Видим, что теперь число 44 можно разделить на 2, делим, получаем 22. Мы использовали команду 2.
3. Число опять делится на 2, делим, получаем 11. Команда 2.
4. 11 не делится на 2, вычитаем 3, получаем 8. Команда 1, и т.д.
5. 8/2=4 . 2
6. 4 - 3 = 1. 1
Как раз у нас получилось 6 действий. Т.к. мы использовали обратные команды, то записываем их обратном порядке.
ответ: 121221,