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

1. Дан вектор A(n). Найти количество элементов вектора, больших среднего арифметического значения всех его элементов.

2. Дан целочисленный вектор A(n). Найти максимальное значение положительных элементов, расположенных правее первого элемента, кратного пяти.

3. Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – среднее арифметическое четных элементов i-ой строки матрицы.

4. Дана квадратная матрица A(nхn). Удалить из матрицы все строки, первый элемент которых отрицательное число.

5. Дана квадратная матрица A(nхn). Найти сумму четных элементов матрицы в задан-ной области:
__
|_| ( низ квадрата незакрашенный треугольник , а весь верх и что осталось от нижнего треугольника закрашено.)

Добавлено (03.11.11, 23:31)
---------------------------------------------
1.
program massiv;
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.
1 | Автор: anton94by | 2011-11-03, 23:31 | Изменено: anton94by - Пт, 2011-11-04, 18:44   |  Репутация: [ + 1 ]
2.
var
i,n,q,a:integer;
begin
read(n);
for i:=2 to n do begin
read(a);
if a mod 5=0 then q:=q+a;end;
writeln(q);
end.

3.
var
a:array[1..10,1..10]of integer;
b:array[1..10]of integer;
i,j,k,q,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do begin
for j:=1 to n do
if a[i,j] mod 2=0 then begin k:=k+a[i,j];q:=q+1;end;
if q<>0 then b[i]:=round(k/q);
k:=0;q:=0;end;
for i:=1 to n do
write(b[i],' ');
end.

4.
var
a:array[1..10,1..10]of integer;
i,j,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
if a[i,1]<0 then a[i,j]:=-1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<>-1 then write(a[i,j],' ');
end.

5-е задание разжуй..

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ). Спасибо


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