Помогите решить задачи на паскаль.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.
2)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти сумму четных элементов массива.
3)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти максимальный элемент массива.
4)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти максимальный элемент массива среди элементов,
кратных 3.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.
2)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти сумму четных элементов массива.
3)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти максимальный элемент массива.
4)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти максимальный элемент массива среди элементов,
кратных 3.
More Questions From This User See All
Answers & Comments
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
s := s * a[i];
end;
writeln;
writeln(s);
end.
2) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
for i := 1 to n do begin
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.
end;
writeln;
writeln(s);
end.
3)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) then s:=a[i];
end;
writeln;
writeln(s);
end.
4)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];
end;
writeln;
writeln(s);
end.