Какие бывают модели человека?
вопрос по информатике

Представлю 3 программы два с массивом и один без массива

1)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

 end;

  for i:=1 to n do  begin

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

2)var a:array [1..10] of integer;

i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

 for i:=1 to n do  begin

   writeln('введите оценку за экзамен');

   readln(a[i]);

    if a[i]=5 then k5:=k5+1;

    if a[i]=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end.

3)var a,i,n,k5,k2:integer;

begin

 writeln('введите количество экзаменов');

 read(n);

if n<=10 then begin

 for i:=1 to n do  begin

     writeln('введите оценку за экзамен');

   readln(a);

    if a=5 then k5:=k5+1;

    if a=2 then k2:=k2+1;

  end;

  writeln('количество пятерок ',k5);

   writeln('количество двоек ',k2);

end;

 end.

1. Составьте варианты поисковых запросов на интересующую) вас тему в интернето и в библиотеке.

2. Постарайтесь классифицировать полученные данные по степени

важности (приоритетности) для последующей проработки: какими источниками заниматься в первую очередь, во вторую и т. п.

3. Выделите информацию, не содержащую противоречий и неподлежащую сомнению.

4. Обобщите данные, которые трактуются неоднозначно, на которые существуют противоречивые точки зрения.

5. Определите, на какие фундаментальные знания вы опираетесь при проверке данных в первую очередь,

6. Составьте архив нужных файлов.​​Объяснение: