profile
Опубликовано 5 лет назад по предмету Информатика от homka1701

Дан массив B,состоящий из 7 элементов (-7,1,8,-4,1,6,-5).Найти произведение отрицательных элементов массива.

  1. Ответ
    Ответ дан Аленусик
    uses crt;
    Var a:array [1..7] of integer;
    i,s:integer;
    begin
    for i:=1 to 7 do
    readln (a[i]);
    clrscr;
    for i:=1 to 7 do begin
    write (a[i]:4);
    if a[i]<0 then s:=s+a[i];
    end;
    writeln;
    writeln (s);
    end.
    1. Ответ
      Ответ дан Аленусик
      блин произведение же, тогда после clrscr S:=1;
    2. Ответ
      Ответ дан Аленусик
      а в условии if ...... s:=s*a[i]
Самые новые вопросы