М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
varfo
varfo
17.06.2022 13:27 •  Информатика

Написать программу на pascal abc.дан целочисленный массив размера n. вычислить сумму и количество положительных элементов, произведение и количество отрицательных элементов, произведение элементов до первого отрицательного. отсортировать массив по возрастанию.

👇
Ответ:
Сергейрг
Сергейрг
17.06.2022
Var
  i, j, n, kolPol, kolOtr, sum, p, ch, k :integer;
  a :array of integer;

begin

  readln(n);
  SetLength(a,n+1);
  randomize;
  for i:= 1 to n do
    a[i]:= random(100)-50;
 
  sum:= 0; p:= 1;
  for i:= 1 to n do
  begin
    if a[i] > 0 then
    begin
      inc(kolPol);
      sum:= sum + a[i];
    end;
    if a[i] > 0 then
    begin
      inc(kolOtr);
      p:= p * a[i];
    end;
  end;
 
  writeln('Количество положительных элементов: ',kolPol);
  writeln('Сумма положительных элементов: ',sum);
  writeln('Количество отрицательных элементов: ',kolOtr);
  writeln('Произведение отрицательных элементов: ',p);
 
  i:= 1; p:= 1; ch:= 0;
  while (a[i] >= 0) and (i <> n+1) do
  begin
    p:= p * a[i];
    inc(ch);
    inc(i);
  end;
 
  if ch <> 0 then 
    writeln('Произведение до первого отрицательного элемента: ',p)
  else
    writeln('Первый элемент массива отрицательный!');
   
  for i:= 1 to n-1 do
    for j:= 1 to n-i do
      if a[j] > a[j+1] then
      begin
        k:= a[j];
        a[j]:= a[j+1];
        a[j+1]:= k;
      end;
  writeln('Массив отсортирован по возрастанию:');
  for i:= 1 to n do
    write(a[i],'  ');

end.
4,4(93 оценок)
Открыть все ответы
Ответ:
gei228
gei228
17.06.2022
№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.
4,6(14 оценок)
Ответ:
nuramanjol
nuramanjol
17.06.2022
Задание 1:

Program Bid;

Uses crt;

var a,b,max:integer;

begin

   write(' Введите целое число a=');

   readln(a);

   write(' Введите целое число b=');

   readln(b);

   if a>=b then max:=a

   else max:=b;

   writeln('Max=',max);

end.

Задание 2:

Program Text;

var x:integer;

begin

   write('Введите цифру 1 или любую :');

   readln(x);

   if x=1 then write(' В а с я')

   else write(' П е т я');

end.

Задание 3:

Program Text;

var x:integer;

begin

   write('Введите цифру 1, 2 или любую :');

   readln(x);

   if x=1 then write(' В а с я')

   else if x=2 then write(' П е т я')

   else write('ERROR');

end.

Задание 4:

Program MaxFrom3;

begin

  writeln('Введите 3 числа: ');

   var (a, b, c) := ReadInteger3;

   write('Наибольшее число: ', Max(a,b,c));

end.


РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
РЕБЯТ, ОЧЕНЬ ПОЖАЙЛУСТА (Готова отдать все ) Информатика - 9 класс Задания и программы приведены ни
4,5(70 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ