программирование - ФОРУМ ПОСТУПИМ.РУ

Главная
Коллективный блог
публикаций
Форум (обсуждаем ЕГЭ 2017)
тем и сообщений
Для учебы









Поделиться страницей:

Войти
или
Зарегистрироваться
Новые сообщения · Участники · Правила форума · Поиск по форуму · RSS
Страница 1 из 11
ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » программирование
программирование
добряшаДата: Суббота, 2011-12-24, 7:07 PM | Сообщение # 1
Абитуриент
Группа: Пользователи
Сообщений: 18
Репутация: 0
Награды: 0
Замечания: 0%
Статус: Offline
1. Найти суммы и количества ненулевых элементов каждой строки матрицы A(N,M), где N меньше или равно 7, M меньше или равно 15. Результаты занести в два новых массива.
2. Вывести на экран произведение элементов каждой строки матрицы.
 
HellkoДата: Воскресенье, 2011-12-25, 1:41 AM | Сообщение # 2
Академик
Группа: Проверенные
Сообщений: 1340
Репутация: 362
Награды: 26
Замечания: 0%
Статус: Offline
ВАМ ПОВЕЗЛО
я сегодня добрый.
а бываю злой.

Code
const         
NN=7;
MM=15;
var
a:array[1..NN,1..MM] of integer;
nenol,sum:array[1..MM] of integer;
i,j,n,m:integer;
mp:longint;
BEGIN
randomize; //если пишите в паскальАБЦ можно убрать эту строку.
n:=NN;   //m - строки.
m:=MM; //не стану делать ввод сами придумаете.

for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10); //заполняем матрицу числами 0-9

for j:=1 to m do begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;

for j:=1 to m do begin
         mp:=1;
         for i:=1 to n do begin
          if(a[i,j]<>0) then begin         
           inc(sum[j],a[i,j]);
           inc(nenol[j]);
          end;
          mp:=mp*a[i,j];
         end;
         writeln('stroka ',j:2,': Proizvedenie = ',mp:8,', koli4estvo ne nyley = ',nenol[j],', ix summa = ',sum[j]:3);
end;

END.


Егэ 2012:
М: 92
Ф: 90


Сообщение отредактировал Hellko - Воскресенье, 2011-12-25, 10:24 AM
 
МаринаБобковаДата: Пятница, 2016-05-27, 5:03 PM | Сообщение # 3
Абитуриент
Группа: Пользователи
Сообщений: 1
Репутация: 0
Награды: 0
Замечания: 0%
Статус: Offline
В следующий раз, чтоб не натыкаться на злых людей обращайся сюда: https://studwork.org/zakazat-reshenie-zadach-po-programmirovaniyu здесь выполнят любой заказ на программирование. Сама сюда обращалась:) Хорошие работы -хорошие цены. smile
 
ФОРУМ ПОСТУПИМ.РУ » ОБЩЕНИЕ » Помогаем друг другу » программирование
Страница 1 из 11
Поиск:


Курсы подготовки к ЕГЭ для 10-11 классов на 2016 – 2017 годы в Москве:

МАТЕМАТИКА

РУССКИЙ

ОБЩЕСТВОЗНАНИЕ

ХИМИЯ

ФИЗИКА

БИОЛОГИЯ

ИНФОРМАТИКА

ИСТОРИЯ

АНГЛИЙСКИЙ

ЛИТЕРАТУРА

все предметы

Бесплатный подбор репетитора на ЕГЭ в Москве


© 2006-2017 Поступим.ру Информация:
О проекте
Контакты

Регистрация на сайте
Статистика сообщества
Пользовательское соглашение
Разделы:
Форум сообщества
Коллективный блог
Материалы для учебы
RSS:
RSS форума
RSS блога