Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Прошу помощи! Заранее благодарю!
1. Дано натуральное n. Вычислить:
(2+1/1)(2+1/2)(2+1/3)...(2+1/n);

2. В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму отрицательных элементов массива и сравнить с введенным значением С.

3. Дан двумерный массив 5*5. Заменить нулем элементы, расположенные под главной диагональю.
1 | Автор: Abrasha1988 | 2012-09-29, 00:41 | Изменено: Abrasha1988 - Сб, 2012-09-29, 03:05   |  Репутация: [ + 0 ]
Quote (Abrasha1988)
3. Дан двумерный массив 5*5. Заменить нулем элементы, расположенные под главной диагональю.


var
a:array[1..5,1..5]of integer;
i,j:byte;
begin
for i:=1 to 5 do
for j:=1 to 5 do begin
read(a[i,j]);
if i>j then a[i,j]:=0;end;
for i:=1 to 5 do begin
for j:=1 to 5 do
write(a[i,j]);
writeln;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-09-30, 09:33   |  Репутация: [ + 211 ]
Quote (Abrasha1988)
2. В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму отрицательных элементов массива и сравнить с введенным значением С.

var
i,as,,n,c:integer;
begin
read(n,c);
for i:=1 to n do begin
read(a);
if a<0 then s:=s+a;end;
writeln(s);
if s>c then writeln('s>c') else writeln('s<c');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2012-09-30, 12:48   |  Репутация: [ + 211 ]
Quote (Abrasha1988)
1. Дано натуральное n. Вычислить:
(2+1/1)(2+1/2)(2+1/3)...(2+1/n);

var
i,n:integer;
s:real;
begin
read(n);
s:=1;
for i:=1 to n do
s:=s*(2+1/i);
writeln(s);
end.

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


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-09-30, 12:52   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: