Вопрос по информатике:
Решите задачу по Pascal ПОЖАЛУЙСТА!!!
1, В одномерном массиве найти разность наибольшего и наименьшего элементов.
2. Дан одномерный массив, вывести на экран числа >5.
3. В одномерном массиве найти произведения ненулевых элементов.
Пожаловаться
- 02.03.2018 23:42
- Информатика
- remove_red_eye 13448
- thumb_up 48
Ответы и объяснения 1
1.
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]
writeln('max = ',max,' min = ',min);
writeln(max,'-',min,' = ',max-min);
end.
Пример:
23 23 46 28 38 21 46 5 19 27
max = 46 min = 5
46-5 = 41
2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
writeln('Числа >5:');
for i:=1 to n do
if a[i]>5 then write(a[i]:3);
end.
Пример:
Массив A:
7 0 12 5 1 1 13 15 13 20
Числа >5:
7 12 13 15 13 20
3.
const n=10;
var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i]:3);
end;
writeln;
p:=1;
for i:=1 to n do
if a[i]0 then p:=p*a[i];
write('p = ',p);
end.
Пример:
Массив A:
5 7 1 6 0 0 4 1 5 0
p = 4200
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]
writeln('max = ',max,' min = ',min);
writeln(max,'-',min,' = ',max-min);
end.
Пример:
23 23 46 28 38 21 46 5 19 27
max = 46 min = 5
46-5 = 41
2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
writeln('Числа >5:');
for i:=1 to n do
if a[i]>5 then write(a[i]:3);
end.
Пример:
Массив A:
7 0 12 5 1 1 13 15 13 20
Числа >5:
7 12 13 15 13 20
3.
const n=10;
var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i]:3);
end;
writeln;
p:=1;
for i:=1 to n do
if a[i]0 then p:=p*a[i];
write('p = ',p);
end.
Пример:
Массив A:
5 7 1 6 0 0 4 1 5 0
p = 4200
Пожаловаться
- 03.03.2018 04:10
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы