Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
MSTXXR
0 / 0 / 0
Регистрация: 11.11.2018
Сообщений: 21
1

Вывести произведения массива на экран

18.01.2019, 23:12. Просмотров 1461. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var m:array[1...100] of integer;
a,b,c:integer
begin
for a:=1 to 20 do m[a]:=random(101);
for a:=1 to 20 do write(m[a],' ');
writeln;
for a:=1 to 19 do
for b:=a+1 to 20 do
if abs(m[a]-m[b])>=6 then
c:=c+1;
writeln(c);
end.
Это первая часть проги, к ней нужно добавить вторую:найти и вывести на экран те пары, произведения чисел которых кратны 6-ти
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.01.2019, 23:12
Ответы с готовыми решениями:

Вывести в текстовый файл значение произведения главной диагонали двумерного массива
Дан действительный двумерный массив A элементы которого расположены в текстовом документе. Выведите...

Найти минимальный элемент массива и вывести на экран положительные числа] массива
Задать массив генератором случайных чисел в диапазоне.Найти минимальный элемент массива и вывести...

Увеличить на 3 каждое число массива, вывести на экран новый массив, найти сумму отрицательных чисел массива
Дан двумерный массив с количеством n строк и столбцов. Данные для массива вводятся случайным...

Сгенерировать и вывести на экран массив с 10 случайных чисел в диапазоне от -100 до 100. Цикличный сдвиг массива влево на 1 и вывод на экран
Помогите написать программку в Паскале, что сгенерирует и выведет на экран массив с 10 случайных...

Элементы массива задаются с помощью датчика случайных чисел. Вывести элементы массива на экран в обратном порядке.
решите пожалуйста Дан одномерный массив a1,...,an, состоящий из 17 целых чисел. Элементы...

2
Puporev
Модератор
56066 / 42949 / 29709
Регистрация: 18.05.2008
Сообщений: 101,892
19.01.2019, 12:19 2
Лучший ответ Сообщение было отмечено MSTXXR как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=20;
var m:array[1..n] of integer;
    a,b,c:integer;
begin
randomize;
for a:=1 to n do
 begin
  m[a]:=random(101);
  write(m[a],' ');
 end;
writeln;
c:=0;
for a:=1 to n-1 do
for b:=a+1 to n do
if abs(m[a]-m[b])>=6 then c:=c+1;
writeln('Количество пар модуль разности которых>=6 равно ',c);
c:=0;
for a:=1 to n-1 do
for b:=a+1 to n do
if (m[a]*m[b]) mod 6=0 then c:=c+1;
writeln('Количество пар произведение которых кратно 6 равно ',c);
end.
1
MSTXXR
0 / 0 / 0
Регистрация: 11.11.2018
Сообщений: 21
19.01.2019, 13:41  [ТС] 3
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2019, 13:41

Элементы массива, стоящие на чётных местах заменить нулями и вывести элементы получившегося массива на экран
Создать одномерный числовой массив из n элементов. Затем, элементы, стоящие на чётных местах...

Вывести на экран 2 минимальных элемента массива .
Я эту программу написал, но она работает то правильно, то неправильно. НАпишите пожалуйста, в чём...

Вывести на экран символы четных элементов массива
помогите плизз решить задачу, не могу никак сдать зачет... нужно вывести на экран символы четных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru