Массив содержит 20 элементов. Определить количество положительных элементов в первой его половине и количество отрицательных элементов во второй. Блок схему и программу плизз

10 комментария:

Хех... смешно будет увидеть оба ответа на версии 3.3

мне на С++ надо

Это надо было писать ДО ПОЛУЧЕНИЯ ОТВЕТА

А нельзя было указать это в своем вопросе !!!

сорян

напишите если не трудно

пожалуйста

Это означает лишь, что автору вопроса наплевать на чужой труд. Он не потрудился даже подумать, что будет, если ответ дадут на другом языке.

да я забылся, целый день сижу учу, завтра экзамен

Ну теперь будете заново вопрос выкладывать.

Ответы

Гость

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!

begin

var mas:=ArrRandom(20,-99,99); mas.Println;

var a:=mas[0:10]; var b:=mas[10:20];

Writeln('количество положительных элементов=',a.Where(t->t>0).Count);

Writeln('количество отрицательных элементов=',b.Where(t->t<0).Count);

end.
это как учат в школе :->

var

i,k,l:integer;

mas:Array[1..20] of integer;

begin

randomize;

for i:=1 to 20 do

mas[i]:=random(-99,99);

for i:=1 to 10 do

if mas[i]>0 then

k:=k+1;

for i:=11 to 20 do

if mas[i]>0 then

l:=l+1;

Writeln('количество положительных элементов=',k);

Writeln('количество отрицательных элементов=',l);

end.

Нет комментариев

Гость

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'),-20,20); a.Println;
Println('В первой половине положительных:',a[:a.Length div 2].Println.Where(t->t>0).Count);
Println('Во второй половине отрицательных:',a[a.Length div 2:].Println.Where(t->t<0).Count);
end.

Пример:
Введите размер массива: 10
-6 8 -12 -5 -4 16 -1 -14 1 0
-6 8 -12 -5 -4
В первой половине положительных: 1
16 -1 -14 1 0
Во второй половине отрицательных: 2