Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189428
18.05.2016, 17:20
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке паскаль: Создайте массив С из элементов массива А кратных 3. Найди-
те сумму и количество элементов нового массива

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 12:32
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
a,c:array[1..n]of integer;
b,d,e:integer;
begin
d:=0;{счетчик-индекс нового массива}
e:=0;{сумма нового массива}
writeln;
writeln('Massiv A:');
randomize;
for b:=1 to n do
begin
a[b]:=random(100);{создаем новый элемент массива}
write(a[b]:3);{выводим}
if(a[b] mod 3)=0 then{проверяем кратность}
begin
inc(d);{увеличиваем счетчик}
c[d]:=a[b];{запоминаем значение}
e:=e+c[d];{считаем сумму}
end;
end;
writeln;
{выводим результат работы}
writeln('Massiv C:');
writeln('count:=',d,'summa:=':10,e);
if d>0 then
for b:=1 to d do write(c[b]:3)
else writeln('does not exist');
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа