Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в н...

August 2021 1 21 Report

Дан массив действительных чисел, размерность которого N. Подсчитать, сколько в нём отрицательных, положительных и ненулевых элементов.

Answers & Comments

preceptor

Verified answer

Program Mimoze;
Const N = 10;
Var p, o, z, i: Integer;
A: Array [0..N - 1] of Integer;
Begin
WriteLn('Введите через пробел ', N, ' чисел');
For i := 0 To N - 1 Do
Read(A[i]);
For i := 0 To N - 1 Do
BeginIf A[i] < 0 Then
Begin
p := p + 1;
z := z + 1;
End
Else If A[i] > 0 Then
Begin
o := o + 1;
z := z + 1;
End;
End;
WriteLn('Положительных: ', p);
WriteLn('Отрицательных: ', o);
WriteLn('Ненулевых: ', z);
ReadLn;
End.

20 votes Thanks 34

preceptor Изменил решение. Так вас учили? :)

telo dvizhetsya pryamolinejno s postoyannym uskoreniem i v shestuyu sekundu prohodit 1b8e849dd66e759b62800d463349b6f26 23542

Answer

Answers & Comments

Verified answer

sravnitelnaya harakteristika zapadnaya sibir vostochnaya sibir dalnij vostok

uravnenie dvizheniya imeet vid x 3 2t 01t2 1 opredelite harakter dvizheni

s2 kakovo ego peremeshenie za 6 s kakuyu skorost on naberyot za eto vremya

po grafiku dvizheniya tela sostavte uravnenie dvizheniya etogo tela kak uravnenie

chto takoe wi fi dlya chego on nuzhen kak rabotaet obyasnite mne podrobno

s2 kakoj put ono projdyot v pervuyu i desyatuyu sekundy esli nachalnaya skorost

s 1 zapishite uravnenie dvizheniya etogo tela 2 postrojte grafik dvizheniya tela

uravnenie skorosti tela imeet vid v 5 2t najdite peremeshenie tela za chetvyo

vyberite tri varianta otveta iz shesti predlozhennyh molekula dnk otlichaetsya ot i

telo dvizhetsya pryamolinejno s postoyannym uskoreniem i v shestuyu sekundu prohodit 1b8e849dd66e759b62800d463349b6f26 23542

рекомендуемые вопросы

Helpful Links

Helpful Social