Составить программы в Паскале:1)Дан массив из 10 элементов. Найти среднее арифметическое.2)Дан массив из 15 элементов. Найти сумму чисел3)Дан массив из 10 элементов. Изменить каждое число, увеличив на 10 и вывести на экран новы...
Составить программы в Паскале:
1)Дан массив из 10 элементов. Найти среднее арифметическое.
2)Дан массив из 15 элементов. Найти сумму чисел
3)Дан массив из 10 элементов. Изменить каждое число, увеличив на 10 и вывести на экран новые значения.
Гость
Ответ(ы) на вопрос:
Гость#1
var
mas:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum/10);
end.
#2
var
mas:array[1..15] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 15 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum);
end.
#3
var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
mas[i]:=mas[i]+10;
write(mas[i],' ');
end;
end.
Не нашли ответ?
Похожие вопросы