Фаил это информация хронящаяся на диске
Папка не помню
<span>var x,y,a:integer;</span>
<span>c:boolean;</span>
<span>begin</span>
<span>readln(x); {считываем}</span>
a:=1;
<span>repeat</span>
writeln(a,' попытка выбор компьютера пал на - ');
<span>y:=random(x)+1; {задаем промежуток рандомом}</span>
write(y);
<span>if x=y {сравниваем} then c:=true; {выходим из цикла в случае успеха}</span>
<span>until c; {если с=true тогда выход из цикла, иначе крутимся дальше}</span>
writeln('Компьютер сделал ',a,' попыток.');
<span>end.</span>
<span>
</span>
Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.
#include <stdio.h>
#include <time.h>
int ZerosInArray(int a[], int n)
{
int k;
for (int i = 0; i < n; i++)if (a[i] == 0) k++;
return k;
}
int main()
{
int N = 10;
int a[N];
int k;
srand(time(NULL));
for (int i = 0; i < N; i++)
{
a[i] = rand() % 5 - 3;
printf("%d ", a[i]);
}
k = ZerosInArray(a, N);
printf("%s%d", "\nZeros = ", k);
return 0;
}
Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
if M[i]>0 then inc(a);
if M[i]=0 then inc(b);
if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
<span>end.</span>
Сверху вниз
для 1 второй
для 2 зависит от языка программирования наверное второй
для 3 второй
для 4 второй
для 5 второй
для 6 второй скорее всего
для 7 второй
для 8 второй