Ответ: Она не работает, к сожалению.
Ответ: вы программист?
Ответ: так же 10 чисел и из них должны отриц быть так
Ответ: В каком паскале нужно было?
Ответ: после того как ты сказала удалить тоже 10 выводит
Ответ: вторая прога сразу должна вывести ответ …..вроде так ……там в моей надо индексу присвоит значение 1 и потом увеличит его в условии
Ответ: const N = 20;var arr: array[1..N] of integer; i: byte;begin randomize; for i:=1 to N do begin arr[i] := random(100) — 75; write(arr[i]:4); end; writeln; for i:=1 to N do if arr[i] > 0 then begin writeln(i); break; end;end.
Ответ: program primer;const n=10;var a : array [1..n] of integer;i:integer;beginwriteln (‘vvedite massiv’);for i :=1 to n doreadln(a[i]);a[i]:=a[1];if a[i]>0 then writeln (‘i=’,i);readln;end.я не уверена …правильно ли решено….паскаль пока не скачала и не могу переправерить….если кто то имеет задачи с файлами напишите …..мне срочно они нужны
Ответ: Program primer;Uses crt;var i,n,ind: integer; a:array[1..100] of integer;begin clrscr; randomize; write(‘Pazmer massiva = ‘); readln(n); for i:=1 to n do a[i]:= random(100)-70; for i:=1 to n do write(a[i]:5); writeln; writeln; for i:=1 to n do if a[i]<=0 then ind:=ind+1 else begin ind:=i; writeln(ind); break; end;end.