1. var a: array [0..12] of integer; i, k: byte; min: integer; begin Randomize; for i:=0 to 12 do begin a[i]:=random(15)-4; write(a[i]:4); end; min:=a[0]; for i:=1 to 12 do if a[i] < min then begin min:=a[i]; k:=i; end; writeln; writeln('Min v pozicii ', k, ' = ', a[k]); readln; end.
2. var a: array [1..6] of integer; i: byte; begin for i:=1 to 6 do begin write(i, ' = '); readln(A[i]); end; writeln; for i:=1 to 6 do begin if i mod 2 = 0 then A[i]:=0; write(A[i], ' '); end; readln; end.
//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
var
a: array [0..12] of integer;
i, k: byte;
min: integer;
begin
Randomize;
for i:=0 to 12 do
begin
a[i]:=random(15)-4;
write(a[i]:4);
end;
min:=a[0];
for i:=1 to 12 do
if a[i] < min then
begin
min:=a[i];
k:=i;
end;
writeln;
writeln('Min v pozicii ', k, ' = ', a[k]);
readln;
end.
2.
var
a: array [1..6] of integer;
i: byte;
begin
for i:=1 to 6 do
begin
write(i, ' = ');
readln(A[i]);
end;
writeln;
for i:=1 to 6 do
begin
if i mod 2 = 0 then A[i]:=0;
write(A[i], ' ');
end;
readln;
end.