обработка одномерных массивов

[KORN]

1) все задачи которые вы даете обсуждались десятки раз и не только на нашем форуме
2) племянник значит гулял весь семестр раз такое решить не может, вы не первые кто говорит что ни чего не понимает в программировании, н овы встаньте на наше место... таких людей которые просто кидают задачи для решения знаете сколько, а во время сессии их просто 70% от всех участников форума7 и вообще пусть племянник сам попу рвет и пытается разобраться как то найти задачи... толку от того что мы ему сделаем.. он все равно ничего не понимает в этом и объяснить не сможет че к чему...

вот задача: Заменить все отрицательные элементы двухмерного массива вещественных чисел нулями и подсчитать сумму положительных элементов. пусть проверяет

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  max=10;
var
  a: array[0..max, 0..max] of integer;
  i, j, r: integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  randomize;
  for i:=0 to max do
    for j:=0 to max do
    a[i,j]:=random(100)-50;

  r:=0;
  for i:=0 to max do
    for j:=0 to max do
    begin
      if a[i,j]<0 then
      a[i,j]:=0;
    r:=r+a[i,j];
    end;

  writeln(inttostr(r));
  readln;
end.

[Disel]

Program modul;
var a:array [1..100,1..100] of real;  i,j,n,m:integer;  s:real;

BEGIN
 write('Enter n ');
  readln (n);
 write('Enter m ');
  readln (m);

  for i:=1 to n do
   for j:=1 to m do
    a[i,j]:=-20+round(40*random);

  for i:=1 to n do
   begin
    for j:=1 to m do
     write(a[i,j]:5:0);
     writeln;
   end;
 writeln;
 writeln('korrektirovannii');

  s:=0;
  for i:=1 to n do
   for j:=1 to m do
    if a[i,j]<=0 then
     a[i,j]:=0
    else s:=s+a[i,j];


  for i:=1 to n do
   begin
    for j:=1 to m do
     write(a[i,j]:5:0);
     writeln;
   end;

  writeln;
  writeln('Summa polozhitelnih elementov = ',s:5:0);
 readln;
END.

Проверяй.

P.S. В следующий раз хоть задачи пронумеруй!!!

[KORN]

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

Для всех елементов масива, которые имеют парные номера поменять знак числа на противоположный.
спасибо

элементарно, взял первое число сравнил со всеми если есть совпадение, то умножаешь на -1

[Сова]

спасибо большое за решение

[maladoy]

Вычислить число сочитаний из n по m, рассмотреть случаи без повторений и с повторениями.Составить алгоритм и программу.

program maladoy;
uses crt;
var m,k :integer;
    c,f:real
function fakt(n:integer):integer;
 begin
  if n>1 then fakt:=n*fakt(n-1)
   else fakt:=1;
 end;
begin
writeln('vvedite m');
readln(m);
writeln('vvedite k');
readln(k);
c:= fakt(m)/(fakt(k)*fakt(m-k));
writeln ('ko/Iu4ectBo co4eTaHuu u3',m,'no',k,'c noBTopeHu5IMu paBHo:',c:4:2);f:=fakt(k+m-1)/(fakt(m)*fakt(k-1));
writeln ('ko/Iu4ectBo co4eTaHuu u3',m,'no',k,'6e3 noBTopeHuu paBHo:',f:4:2);
readln;
 
end.

[maladoy]

Составить программ вычисления значения функции на некотором промежутке с заданным шагом.Функцию придумать.

program maladoy;
uses crt;
var m,k,h :real;
    f:real
begin
writeln('vvedite m');
readln(m);
writeln('vvedite k');
readln(k);
h:=0,1;
x:=m;
repeat 
f:=sqr(x);
writeln('npu x=',x:6:2,' f(x)=',f:6:4)
x:= x+h;
until x>k
readln;
end.

[maladoy]

Составить программу заполнению таблиц натуральных чисел квадратами натуральных чисел от 1 до 100

program maladoy;
uses crt;
var a:array [1..100] of integer;
    i:integer;
begin
for i:=1 to 100 do;
a[i]:=sqr(i);
write('  a[',i,']=',a[i]);
end.