Информатика, опубликовано 2018-08-22 22:18:12 by Гость

Дан одномерный массив. Найти номер последнего отрицательного элемента

Ответ оставил Гость

Const n = 10;
var a:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do begin
    a[i]:=random(41)-20;
    if a[i]    write(a[i]:4);
end;
writeln;
writeln(Номер последнего отрицательного: ,k);
end.

Тестовое решение:
16 20   2 -2 -15 -8 20 -4   3   4
Номер последнего отрицательного: 8

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.