5 вип дней

[Surman]

помогите решить задачу с меня 5 вип дней

Составте программу, которая позволяет ввести элементы масива a[1..10] с клавиатуры и выводит на экран количество отрицательных элементов и их индек

[Happy end]

google

[Мр100кк]

what ?

[loackerr]

курнул?

[serwa]

олимпиада по информатике бля,нам отменили почему то

[id49827]

Вот этот кусочек выведет тебе количество отрицательных элементов, а нахождение ихнего индекса можно прогуглить

uses crt;
var mas: array[1..10] of integer;
k: integer;
i: integer;
begin
for i:=1 to 10 do
begin
writeln (' Введите элементы массива ');
write (' Элемент массива ', i ,' = ');
readln (mas);
end;
k:= 0;
for i:= 1 to 10 do
begin
if mas < 0 then
begin
k:= k + 1;
end;
end;
writeln (' Количество отрицательных элементов массива равно ', k);
end.

[Drew]

на паскале, если будет нужно на другом языке - пиши:
var mass: Array[1..10] of integer;
i, k1, k2: integer;
begin
for i := 1 to 10 do begin
write('Введите ', i, ' элемент массива: ' );
readln(mass);
end;
write('Введите k1 и k2: ' );
readln(k1, k2);
writeln('======');
for i := k1 to k2 do begin
writeln(mass);
end;

end.

[Surman]

счяс abc скачаю праверю если правильно ловите 5 дней