Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Программа в Паскале. (Строки)
Программа в Паскале.
Составить программу в Паскале по теме " Массив"

7. Дана квадратная матрица A(nхn). Найти сумму четных элементов матрицы в задан-ной области:
__
|_| ( низ квадрата незакрашенный треугольник , а весь верх и что осталось от нижнего треугольника закрашено.)
1 | Автор: anton94by | 2011-11-03, 15:34 | Изменено: anton94by - Пт, 2011-11-04, 18:45   |  Репутация: [ + 1 ]
1.
var
a:array[1..100]of integer;
i,n,q,w:integer;
begin
read(n);
for i:=1 to n do begin
read(a[i]);
q:=q+a[i];end;
q:=round(q/n);
for i:=1 to n do
if a[i]>q then w:=w+1;
writeln(w);
end.

Остальное позже напишу, нужно от пар отдохнуть:)


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-11-03, 22:06   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Программа в Паскале. (Строки)
Страница 1 из 11
Поиск: