1. Циклы. 2.Массивы (Паскаль)

[vatakat]

Нужна помощь в решение задач.

Помогите пожалуйста решить три задачки в паскале.

1.Циклы.Ветвление.
Для заданных N чисел просуммировать только те, которые по модулю больше 5.

2.Циклы.
Вводить числа, пока не будет введён 0.Посчитать сумму и среднее арифметическое этих чисел.

3.Массивы.Процедуры.
Написать функцию нахождения максимального числа и его номера в одномерном массиве.Задать двумерный массив и используя эту функцию, найти максимальное значение и их номера в каждой строке и их вывести.

[MyLastHit]

http://programmersforum.ru/search.php?searchid=910360
Темы созданные ТС.
Ну неужели ты не можешь открыть книжку и за 30 минут выучить элементарный паскаль?

[vatakat]

Сообщение от MyLastHit

http://programmersforum.ru/search.php?searchid=910360
Темы созданные ТС.
Ну неужели ты не можешь открыть книжку и за 30 минут выучить элементарный паскаль?

Нет не могу! Ты раз такой прошареный, дак помог бы решить, чем писать какую то ересь, если бы я мог, то и без твоих бы советов выучил.

[MyLastHit]

vatakat, вот мой первый пост на этом форуме: http://programmersforum.ru/showthread.php?t=76638
Так же как и ты просил чтобы мне решили задачку с массивами) Потом надоело, открыл книжку по паскалю и выучил его за 1 день. Пришел на экзамен и единственный сдал его на отл. Через неделю уже в Delphi плавал, а через месяц в Visual Studio подался.
Ты просто ленивый. Третий раз создаешь одну и ту же тему, и все никак не наберешься силы открыть учебник из 20 стр...

[Stilet]

Хватит флудить, ато закрою тему.

Нет не могу

А что ты можешь? Ты учти - тебе напишут, но поверь мне без твоих наработок преподаватель однозначно догадается что это не твоих рук дело, так что показывай что умеешь.

[Наки]

Задание 1.

program Prog1;
var
i,n,s,a:integer;
begin
writeln('Введите n:');
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a);
if abs(a)>5
then
s:=s+a;
end;
writeln('Сумма: ',s);
end.

Задание 2.

program Prog2;
var
count, sum, a:integer;
begin
sum:=0;
count:=0;
repeat
readln(a);
sum:=sum+a;
if a<>0
then count:=count+1;
until a=0;
writeln('Сумма: ',sum);
writeln('Среднее арифметическое: ',sum/count);
end.

Задание 3.

program Prog3;

uses crt;

const
NMax=100;

var
i,j,n,m,mx,nm:integer;
mass:array [1..NMax,1..NMax] of integer;
tmp:array [1..NMax] of integer;

procedure MaxEl(a:array [1..NMax] of integer; n:integer; var max,num:integer);
var
i:integer;
begin
max:=a[1];
num:=1;
for i:=2 to n do
if a[i]>max
then
begin
max:=a[i];
num:=i;
end;
end;

begin{Prog3}
write('Количество строк:');
readln(n);
write('Количество столбцов:');
readln(m);
writeln('Элементы массива:');
for i:=1 to n do
for j:=1 to m do
begin
write('mass[',i,',',j,']=');
readln(mass[i,j]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(mass[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m do
tmp[j]:=mass[i,j];
MaxEl(tmp,m,mx,nm);
writeln('Строка ',i);
writeln('   максимальный элемент: mass[',i,',',nm,']=',mx);
end;

end.{Prog3}

[MyLastHit]

1:

const
  n=10;
var
  a:array[1..n] of real;
  s:real;
  i:integer;
begin
s:=0;
for i:=1 to n do
begin
  write('Введите '+inttostr(i)+'-ое число: ');
  readln(a[i]);
  if abs(a[i])>5 then s:=s+a[i];
end;

2:

var
  a:array[1..100] of real;
  i:integer;
  s:real;
begin
s:=0;
i:=1;
while true do
begin
  write('Введи '+inttostr(i)+'-ое число: ');
  readln(a[i]);
  if a[i]=0 then break;
  s:=s+a[i];
  inc(i);
end;
writeln(s,s/(i-1));
readln;

3:сам напиши функцию. Функция это всего лишь подпрограмма, и код в ней ничем не отличается от кода аналогичной программы. Функция принимает значение и возвращает его.
function Имя(var зн1:тип1, зн2:тип2...):тип возвр. значения;

[vatakat]

Наки, Спасибо большое за помощь!;-)

Stilet, как мне быть с преподавателем я сам справлюсь!

MyLastHit, Ты просто нереально крутой, я очень рад за тебя и твои знания.
Не тебе судить, что мне мешает учить этот паскаль, будь это лень или другие причины.
Если ты следишь за моими темами, то ты и смотри, что это не одна и та же тема, здесь есть задача из первой темы, но только потому что её там решили не правильно, а вторую тему просто закрыли.
Ну и тебе спасибо за решение задач!Буду надеяться на твои фантастические знания паскаля.

[Serge_Bliznykov]

MyLastHit
vatakat

Вы оба хороши!

Тема исчерпала себя!
А флуд, ругань и взаимные оскорбления нам здесь не нужны!

ЗАКРЫТО!