|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2012, 00:11 | #1 |
Новичок
Джуниор
Регистрация: 28.05.2012
Сообщений: 2
|
Определить и напечатать сумму элементов,превышающих заданную величину С-2,5 для каждой строки заданной матрицы А.
Программа есть,только нужно решить ее с использованием подпрограмм.
Очень очень нужно!!! program k; const n=3;m=4; var a:array[1..n,1..m] of integer; s,i,j:integer; C:real; begin randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10); write(a[i,j]:4); end; writeln; end; c:=2.5; for i:=1 to n do begin S:=0; for j:=1 to m do if c<a[i,j] then s:=s+a[i,j]; writeln('Сумма ',I,' строки=',s); end; end. |
29.05.2012, 00:27 | #2 |
Delphi Warrior
Старожил
Регистрация: 15.08.2008
Сообщений: 2,502
|
Что ж вы кроспостите то, девушка?
Нехорошо! Код:
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303 |
29.05.2012, 14:07 | #3 |
Новичок
Джуниор
Регистрация: 28.05.2012
Сообщений: 2
|
Спасибо большое)
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить максимальный элемент произвольно заданной матрицы В размером n×n элементов . Обнулить все элементы строки и столбца | amorousmaniac | Помощь студентам | 2 | 16.12.2011 06:41 |
вычислить сумму элементов каждой строки матрицы | saint13 | Помощь студентам | 0 | 04.05.2010 20:34 |