1. Информатика
  2. ЧЕРЕЗ VAR BEGIN RANDOMIZE

ЧЕРЕЗ VAR BEGIN RANDOMIZE FOR ARRAY

Дубой Дубой    3   27.12.2021 05:47    0

Ответы
Алижан07 Алижан07  27.12.2021 06:00

Объяснение:

uses crt;

var

a:array [1..100] of integer;

s,n,i:integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

s:=0;

clrscr;

for i:=1 to n do

if A[i]<0

then

s:=s+1;

for i:=1 to n do

writeln ('summa otricatelnih chisel:');

writeln (s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
napol2011 napol2011  15.04.2020 16:46
Что делать если на винде 10 когда я играю в кс и меня приглашают в пати то сворачивается кс и открывается чат, как сделать чтобы не сворачивался? Это мб даже не в кс дело, мб...
хрустально хрустально  15.04.2020 16:46
Укажите, значение переменной D после выполнения данного фрагмента программы: N:=1; D:=0; WHILE N 10 DO BEGIN D:=D+N; N:=N+2; END;...
Диа200426 Диа200426  15.04.2020 16:46
5. Определите по коду программы:#include iostream #include cmath using namespace std;int main() {Int a=10, b=5, s;cin a bS=a*bcout s; }а) входные данныев) выходные данные​...
HeU3BecN0cTb HeU3BecN0cTb  15.04.2020 16:46
Какая формула будет получени прикопировании в ячейку D3, формулы из ячейки D2:а) =А2*С2;б) =$А$2*С3;в) =А3*$С$2;г) =А2*С2.​...
Alniri Alniri  08.09.2019 18:40
Что позволяют программы для архивации данных...
dedrina dedrina  02.10.2019 05:20
Составьте программу, которая позволяет получить из слова информатика слово формат и нота путём удаления символов...
lerikonusheva lerikonusheva  02.10.2019 05:20
Составьте блок-схему алгоритма вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n....
Алентина Алентина  08.10.2019 12:30
Написать программу на языке паскаль для вычисления затрат на ремонт !...
Fura44 Fura44  08.10.2019 12:30
1.с клавиатуры вводятся два числа. если оба по модулю больше 10,сложить их, иначе перемножить. результат вывести на экран случайным образом задаётся от 1 до 100.если оно четное...
Ашеашачочєо Ашеашачочєо  22.05.2019 12:20
Сообщение, записанное с использованием 256-символьного алфавита, занимало 1 кб памяти. затем сообщение было перекодировано на алфавит из 64 знаков. каков объем сообщения после...

Популярные вопросы