Ввести масив М[1..10]. Запишіть оператори для реалізації завдань: 1) Знайти суму лише від'ємних елементів; 2) Знайти максимальний елемент; 3) Знайти кількість додатних елементів; 4) Елементи, які менше за 15, замінити на 5.
Информатика-это наука о получения, накопления, хранения, преобразования, передачи, защиты и использования информации. Информатика изучает автоматизированную обработку информации при компьютеров. С тех пор, как последние существуют, программисты создавать такие программы, которые позволяют компьютерам выполнять задачи, для решения которых биологическим существам потребовалось бы наличие разумного сознания. Простейший пример — это выполнение арифметических операций. Однако очевидно, что умножая числа, компьютеры не используют сознания.
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.
var n,s,t,i:integer; begin Write('Укажите количество данных: '); Read(n); Writeln('Теперь вводите данные'); s:=0; for i:=1 to n do begin Read(t); s:=s+t end; Writeln('Средняя температура за месяц составила ',s/n:0:1) end.
Пример решения
Укажите количество данных: 11 Теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 Средняя температура за месяц составила 27.4
var a:array [1..5] of integer;
i,max,k,j: integer;
begin
Write ('Введите элементы массива: ');
for i:= 1 to 5 do
read (a[i]);
max:=a[1];
for i:= 1 to 5 do
if a[i]>max then max:=a[i];
Writeln ('Максимальный элемент: ',max);
Writeln ('Элементы с непарными индексами: ');
for i:= 1 to 5 do
if i mod 2 <>0 then write (a[i], ' ');
for i:= 1 to 4 do
for j:= i+1 to 5 do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln();
writeln ('Массив, упорядоченный в порядке убывания: ');
for i:= 1 to 5 do
write(a[i], ' ');
end.
Объяснение: