var
my_arr : array [1..5] of integer;
i : integer;
sred : real;
begin
sred:=0;
for i:=1 to 5 do
begin
readln(my_arr);
sred:=sred + my_arr;
end;
Writeln(sred/5);
end.
помогите решить задачи по информатике 11 класса
Напишите програмку на паскале плиз) практическая работа 11 класса
задали написать по информатике задачи
первые три по теме Массивы
остальные два по теме Цикл с предусловием и параметром , помогите плиз
1) Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива
2) Ввести с клавиатуры массив из 5 элементов, найти минимальный из них
3) Написать программу, которая выводит на экран 6 раз Ваше имя
4) вывести на экран таблицу умножения на 7 чисел от 9 до 4
5) С клавиатуры вводится целые числа, и подсчитываются их сумма. Сумма вычисляется до первого НУЛЯ
помогите плиз )
задали написать по информатике задачи
первые три по теме Массивы
остальные два по теме Цикл с предусловием и параметром , помогите плиз
1) Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива
2) Ввести с клавиатуры массив из 5 элементов, найти минимальный из них
3) Написать программу, которая выводит на экран 6 раз Ваше имя
4) вывести на экран таблицу умножения на 7 чисел от 9 до 4
5) С клавиатуры вводится целые числа, и подсчитываются их сумма. Сумма вычисляется до первого НУЛЯ
помогите плиз )
Код:
var
my_arr : array [1..5] of integer;
i, min : integer;
begin
for i:=1 to 5 do
Readln(my_arr);
min:=my_arr[1];
for i:=2 to 5 do
if my_arr<min then
min:=my_arr;
Write(min);
end.
my_arr : array [1..5] of integer;
i, min : integer;
begin
for i:=1 to 5 do
Readln(my_arr);
min:=my_arr[1];
for i:=2 to 5 do
if my_arr<min then
min:=my_arr;
Write(min);
end.
третья:
четвертая:
пятая:
Код:
var
i : integer;
begin
for i:=1 to 6 do
Writeln('Я ленивый студент');
end.
i : integer;
begin
for i:=1 to 6 do
Writeln('Я ленивый студент');
end.
четвертая:
Код:
var
i : integer;
begin
for i:=9 downto 4 do
Writeln('7 * ',i,' = ',7*i);
end.
i : integer;
begin
for i:=9 downto 4 do
Writeln('7 * ',i,' = ',7*i);
end.
пятая:
Код:
var
summ, i : integer;
begin
summ:=0;
While true do
begin
Readln(i);
if i = 0 then
break
else
Begin
summ:=summ+i;
Writeln(summ);
end;
end;
end.
summ, i : integer;
begin
summ:=0;
While true do
begin
Readln(i);
if i = 0 then
break
else
Begin
summ:=summ+i;
Writeln(summ);
end;
end;
end.