Школьная задача, PascalABC

Question

Школьная задача, PascalABC

Оля Егорова Ученик (99), закрыт 4 года назад

Учесть, что программа должна быть зациклена («Повторить заново? 1- да, 2- нет»), при вводе массива перед вводом каждого элемента должен быть указан его номер («введите 6-ый элемент массива... введите 7-ой элемент массива»). Спасибо за помощь.

Дополнен 4 года назад

Без динамических массивов и матриц, пожалуйста

Answer 1

type matrix=array of array of real;
var mas:matrix;
integer n,i,k;
write('Введите число элементов массива: '); readln(n);
setlength(mas,n);
k:=0;
for i:= 1 to n do begin
read(mas(i));
write(mas(i));
if (k=0) and (mas(i)<0) then k:=i;
end;
write();write(k);

Answer 2

var a: array[1..50] of integer; n, neg: integer;
begin
write('n = '); read(n);
for var i := 1 to n do begin write(i, ': '); read(a[i]) end;
for var i := 1 to n do if a[i] < 0 then begin neg := i; break end;
for var i := 1 to n do write(a[i], ' ');
writeln; write(neg)
end.