В числовом массиве найти количество отрицательных элементов

@Bartino · Регистрация: 29.11.2011

Author24 — интернет-сервис помощи студентам

@КонецСвета · 29.11.2011, 17:02

Pascal

uses crt;
var a:array [1..100] of integer;
    n,i,k: integer;
begin
write('Размер массива ');
readln(n);
k:=0;
writeln('Дан массив');
for i:=1 to n do
    begin
    a[i]:=random(101)-50;
    write(a[i],' ');
    if a[i]<0 then k:=k+1;
    end;
writeln;
writeln('Количество отрицательных элементов ',k);
end.

29.11.2011, 17:15

ль гамалем не пробовали?

@Bartino 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 27
		1
	В числовом массиве найти количество отрицательных элементов 29.11.2011, 14:59. Показов 2311. Ответов 2 Метки нет (Все метки) В числовом массиве найти количество отрицательных элементов 0

Elisey44
	29.11.2011, 17:15	3
	ль гамалем не пробовали?

В числовом массиве найти количество отрицательных элементов

Решение