Блог для маленьких школьников и их родителей
ШколаЛа

Составить программу в паскале ​

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

составить программу в паскале ​

Ответов к вопросу: 1
  • artemnegrnawtaufpz4
    20.12.2024 | 11:04

    Ответ:
    const N=6;
    var i,sum,count,min,x,count_us,count_m,count_p:integer;
    var arr: array[1.N] of integer;
    begin
     read(x);
     sum:=0;
     count:=0;
     min:=99999;
    for i:=1 to N do
     begin
     readln(arr[i]);
     sum:= sum + arr[i];
     if arr[i] mod 2 <> 0 then inc(count);
     if arr[i] < min then min:= arr[i];
     if (arr[i] > x) and (arr[i] mod 5 = 0) then inc(count_us);
     if arr[i]<0 then inc(count_m) else inc(count_p);
     end;
     if count_m > count_p then write(‘Отрицательных чисел больше’)
     else write(‘Положительных чисел больше’)
     // Тут сделай вывод а-д если надо
    end.
    Объяснение:

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.