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

Напишите программу, запрашивающую у пользователя n целых чисел и выводящую на экран: а) количество нулей в последовательности; б) количество положительных чисел; в) количество отрицательных чисел. ( на языке паскаль с++)

👇
Ответ:
swordfishtrombone
swordfishtrombone
25.09.2021
Program z1;  Var i,n,a,b,c:integer;      m: array [1..1000] of integer;Begin  write('Введите кол-во чисел - ');  readln(n);   randomize;   a:=0;   b:=0;   c:=0;  for i:=1 to n do  begin    m[i]:=random(100)-50;    write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.
4,7(36 оценок)
Открыть все ответы
Ответ:
Danuaple
Danuaple
25.09.2021
function ReadInteger(prompt: string): integer;
        Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры

function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями

function Println(delim: string := ' '): sequence of T;
      Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.

procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
4,7(96 оценок)
Ответ:
milerowskaya
milerowskaya
25.09.2021
1)
var
  i, max, maxin: smallint;
  arr1, arr, sum: array[1..25] of smallint;

begin
  max := -(MaxSmallInt);
  randomize();
  for i := 1 to 25 do
  begin
    arr[i] := Random(-100, 100);
    arr1[i]:=arr[i];
    write(arr[i], ' ');
    while arr[i] <> 0 do
    begin
      sum[i] := abs(arr[i] mod 10) + sum[i];
      arr[i] := arr[i] div 10;
      if sum[i] > max then begin
      max := sum[i];
      maxin:=i;
      end;
    end;
  end;
  writeln();
  writeln(arr1[maxin]);
end.

2)
var
  i, sum: byte;
  arr: array[1..20] of byte;

begin
  sum := 0;
  randomize();
  for i := 1 to 20 do
  begin
    arr[i] := random(10);
    write(arr[i], ' ');
    if arr[i] = i then sum := i + sum;
  end;
  writeln();
  writeln(sum);
end.
4,7(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ