Предмет: Информатика,
автор: Фази
№1. Дан массив, сформированный следующим образом:
Алгоритмический язык Паскаль
нц для i от 1 до 10
a[i]:=i*i-5
кц
for i:=1 to 10 do a[i]:=i*i-5;
Чему равна сумма элементов массива a[1] и a[6]?
№2. Массив а из 10 элементов сформирован следующим образом:
Алгоритмический язык Паскаль
нц для i от 1 до 10
a[i]:=i*i
кц
for i:=1 to 10 do a[i]:=i*i;
i
a[i]
К данному массиву был применен следующий алгоритм:
Алгоритмический язык Паскаль
b:= a[10]
нц для i от 1 до 8
a[10-i]:= a[9-i]
кц
a[1]:=b
b:= a[10]
for i:=1 to 8 do a[10-i]:= a[9-i];
a[1]:=b;
i
a[i]
Чему равно значение седьмого элемента обратного массива?
№3. Задан целочисленный массив, который имеет следующие элементы: (-2, 15, -6, 0, 3, 10). Напишите
программу на языке Паскаль, которая выведет на экран среднее арифметическое значение элементов
данного массива.
ПОМОГИТЕ!30 баллов ваши,ток спасите от этого ада...
Фази:
ясно....
Ответы
Автор ответа:
3
1)27
2)47
3)
var a: array [1..10] of integer;i:integer;b:real;begina[1]:= -2;a[2]:=15;a[3]:=-6;a[4]:=0;a[5]:=3;a[6]:=10;for i:=1 to 6 dob := b+a[i];b := b/6;writeln(b);end.
2)47
3)
var a: array [1..10] of integer;i:integer;b:real;begina[1]:= -2;a[2]:=15;a[3]:=-6;a[4]:=0;a[5]:=3;a[6]:=10;for i:=1 to 6 dob := b+a[i];b := b/6;writeln(b);end.
i:integer;
b:real;
begin
a[1]:= -2;
a[2]:=15;
a[3]:=-6;
a[4]:=0;
a[5]:=3;
a[6]:=10;
for i:=1 to 6 do
b := b+a[i];
b := b/6;
writeln(b);
end.
Похожие вопросы
Предмет: География,
автор: veronikazab35
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Русский язык,
автор: poradinsergey
Предмет: География,
автор: sazhnevam
Предмет: Литература,
автор: club99