Помогите пожалуйста!
1. Напишите программу на языке Паскаль, которая позволяет найти минимальное число массива Х, состоящего из 30 элементов.
2. Напишите программу на языке Паскаль, которая позволяет найти сумму чисел массива Х, состоящего из 20 элементов.
Ответы
Ответ дал:
0
1.
program MinElement;
var
X: array[1..30] of Integer;
i, min: integer;
begin
randomize;
for i := 1 to 30 do
X[i] := random(100);
min := X[1];
for i := 1 to 30 do
if X[i] < min then
min := X[i];
writeln('Минимальное число: ', min);
write('Все элементы:');
for i := 1 to 30 do
write(' ', X[i]);
readln;
end.
2.
program Summa;
var
X: array[1..20] of Integer;
i, sum: integer;
begin
randomize;
for i := 1 to 20 do
X[i] := random(100);
sum := 0;
for i := 1 to 20 do
sum := sum + X[i];
writeln('Сумма всех чисел: ', sum);
write('Все элементы:');
for i := 1 to 20 do
write(' ', X[i]);
readln;
end.
Всё правильно и проверено лично!
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад