1.Напишите программу, которая вычисляет среднюю за неделю температуру воздуха.
program pr1;
const n=7;
var t:array[1..n] of integer;
i: integer;
s: real;
begin
writeln(‘Введите температуру воздуха за неделю’);
for i:=1 to n do
begin
write(i,’ день=’);
readln (t[i]);
s:=s+t[i];
end;
s:=s/n;
writeln(‘Средняя температура : ‘,s:5:2);
readln;
end.
2.Найдите количество положительных и отрицательных элементов в данном одномерном массиве.
program pr2;
uses crt;
const n=3;
var m:array[1..n] of integer;
i,a,b: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
m:=-10+random(11);
writeln(m,` `);
if m0 then a:=a+1;
if m0 then b:=b+1;
end;
writeln(`Количество положительных элементов: `,a);
writeln(`Количество отрицательных элементов: `,b);
readln;
end.
5.Найти наименьший элемент последовательности.
Температура воздуха. Видеоурок по географии 6 класс
program pr5;
uses crt;
const n=3;
var x:array[1..n] of integer;
i,m,k: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
x:=-10+random(21);
writeln(x,` `);
end;
m:=x[1]; k:=1;
for i:=2 to n do
begin
if xm then
begin
m:=x;
k:=i;
end;
end;
writeln(`min: `,x[k]);
readln;
end.
6.Заполнить массив значениями, вычисляемыми по формуле: a:=sin(i)*i2.
Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.
program pr6;
uses crt;
const n=3;
var x:array[1..n] of real;
m:real;
i,k: integer;
begin
clrscr;
for i:=1 to n do
begin
x:=sin(i)*i*i;
writeln(x:5:2);
end;
m:=x[1]; k:=1;
for i:=2 to n do
begin
if xm then
begin
m:=x;
k:=i;
end;
end;
writeln(`max: `,x[k]:5:2);
readln;
end.
7.Определить в одномерном массиве количество пар одинаковых соседних элементов.
program pr7;
uses crt;
const n=9;
var x:array[1..n] of integer;
i,m,k: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
x:=-1+random(2);
writeln(x,` `);
end;
for i:=2 to n do
begin
if x=x[i-1] then k:=k+1;
end;
writeln(`Kol_vo par: `,k);
readln;
end.
8.Дан одномерный массив целого типа.Получить другой массив, состоящий только из нечетных чисел исходного массива. Полученный массив вывести в порядке убывания элементов.
6.Введите с клавиатуры целочисленные элементы матрицы 3Х3
и вычислите сумму элементов каждого столбца.
Источник: proshkolu.ru
Амплитуда температур и средняя температура воздуха. География в действии!
Напишите программу, которая вычисляет среднюю за неделю температуру воздуха. Исходные данные вводятся с клавиатуры.
program temperatuta;
var
а: array [1..7] of integer; // Исходные данные
i: integer; // Счетчик цикла
s: integer; // Промежуточная величина
st: real; // Результат
const b: array [1..7] of string = (‘Понедельник’, ‘Вторник’, ‘Среда’, ‘Четверг’, ‘Пятница’, ‘Суббота’, ‘Воскресенье’);
begin
writeln (‘Введите температуру’);
for i:= 1 to 7 do
begin
writeln (b[i], ‘>>’);
readln (a[i])
end;
s:= 0;
for i:=1 to 7 do
s:=s+a[i];
st:=s/7;
writeln (‘Средняя температура за неделю:’, st:4:2);
end.
Источник: murnik.ru
Составить программу которая вычисляет среднюю за неделю температуру воздуха
Напишете программу которая вычисляет среднюю за неделю температуру воздуха. Исходные данные вводятся с клавиатуры. ПОЖАЛУЙСТА
Комментарии
Напишете решение в личное сообщение
Ответ проверен экспертом
0 (0 оценок)
triolana 6 лет назад
Светило науки — 553134 ответа — 388270 раз оказано помощи
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(‘Понедельник’,’Вторник’,’Среда’,’Четверг’,’Пятница’,
‘Суббота’,’Воскресенье’);
Writeln(‘Введите температуру’);
var t:=new real[7];
for var i:=0 to 6 do begin Write(a[i],’>> ‘); Read(t[i]) end;
Writeln(‘Средняя температура за неделю: ‘,t.Average:0:2)
end.
Введите температуру
Понедельник>> 12
Вторник>> 10
Среда>> 16
Четверг>> 18
Пятница>> 17
Суббота>> 16
Воскресенье>> 14
Средняя температура за неделю: 14.71
Источник: vashurok.com