Подготовьте плакат "Процессор,его функции и основные характеристики",используя схему 1 ​

1)
Var a:array[1..30] of integer; max,i:integer;
Begin
 for i:=1 to 30 do readln(a[i]);
 max:=a[15];
 for i:=15 to 30 do
   if a[i]>max then max:=a[i];
 writeln('Max=',max);
End.

2)
Var a:array[1..30] of integer; max,i:integer;
Begin
 for i:=1 to 30 do readln(a[i]);
 max:=a[1];
 for i:=1 to 30 do
   if a[i]>max then max:=a[i];
 writeln('Max=',max);
 for i:=1 to 30 do
   if (a[i]=max)and((i mod 2)=0) then write(i,', ');
End.

3)
Var a:array[1..30] of integer; max,i,k:integer;
Begin
 for i:=1 to 30 do readln(a[i]);
 max:=a[1];
 for i:=1 to 30 do
   if a[i]>max then max:=a[i];
 writeln('Max=',max);
 k:=0;
 for i:=1 to 30 do
   if (a[i]=max)and((i mod 2)=0) then k:=k+1;
 writeln('ответ: ',k);
End.

1). Ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків.
2). Завжди дотримуйтесь сімейних правил Інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.
3). Завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.
4). Не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.