Вывод массива
For i:=1 to 10 do
write(A[i]);
Ввод массива в цикле
В цикле от 2 до 5 - сравнение текущего элемента с max
Составить программу, которая находит максимальное, минимальное и среднее значение из 1000 целых чисел (числа входят в промежуток [-5;5]).
RANDOMIZE;
x:= RANDOM (6);
RANDOMIZE;
x:= RANDOM (6)+1;
В памяти следующие числа: 0,1,2,3,4,5,6.
В памяти следующие числа: 1,2,3,4,5,6.
+ 0;
RANDOMIZE;
x := RANDOM (N) + a;
program Max1000;
var A:array [1..1000] of integer;
i: integer; max: integer;
Begin
{Ввод массива с помощью случайных чисел}
Randomize;
for i:=1 to 1000 do
begin
A[i]:=Random (11) - 5;
Write ( A[i], ‘ ‘ );
end;
…
Составить программу, которая находит максимальное, минимальное и среднее значение из 1000 целых чисел (числа входят в промежуток [-5;5]).
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть