5 вип дней
-
Автор
помогите решить задачу с меня 5 вип дней
Составте программу, которая позволяет ввести элементы масива a[1..10] с клавиатуры и выводит на экран количество отрицательных элементов и их индек
-
google
-
what ?
-
курнул?
-
олимпиада по информатике бля,нам отменили почему то
-
Вот этот кусочек выведет тебе количество отрицательных элементов, а нахождение ихнего индекса можно прогуглить
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. -
на паскале, если будет нужно на другом языке - пиши:
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.
-
Автор
счяс abc скачаю праверю если правильно ловите 5 дней
