Показать сообщение отдельно
Старый 13.06.2012, 23:17   #3 (permalink)
Андрей Романюк
Member
 
Регистрация: 13.05.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

теперь осталась одна проблема:правильное нахождение суммы четных элементов.....
вот моя "исправленная программа":
Код:
{ђ®¬**оЄ 251}
program romanuk9_2;
uses crt;
type Mas = array[1..100] of integer;
var  A:mas;
     b,i,c,s,max:integer;
begin
  clrscr;
   s:=0;
  writeln('введите кол-во символов массива*');
  readln(b);
  writeln;writeln;
  randomize;
  for i:=1 to b do begin

    A[i]:=random(200)-100;
    write(A[i]:5);
    end;
    writeln;

    for i:=1 to b do
    if A[i] mod 2=0 then
     s:=s+A[i];
    writeln(s,' -сумма четных элементов');
    c:=1;


     for i:=2 to b do
    if A[c]<A[i] then c:=i;
    max:=A[c];



     if s<0 then
    for i:=1 to b do begin
     A[i]:=A[i]*2; write(A[i],' ');
    end;
    if s>0 then
     writeln(max);


      readln;
end.
Андрей Романюк вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070