Ну вот.Надеюсь,что я ответила
Графічний онлайн-редактор. Безкоштовний інструмент для графічного дизайну.
Пошук світових наукових журналів.
Безкоштовний курс з програмування з нуля. Працює прямо в браузері.
Автоматизована система перевірки рішень задач з програмування.
Безкоштовні онлайн-тренінги для освітян.
Майстерня Марини Курвітс.
Веб-додаток для роботи з ЗОБРАЖЕННЯМИ.
Портал психологічних видань.
Інноваційний освітній проект з онлайн-навчання.
Портал адміністративних послуг.
Дистанційне навчання інформатики.
LIQPAY, НАЙПРОСТІШІ ПЛАТЕЖІ ДЛЯ ВАШОГО САЙТУ АБО ДОДАТКУ!
"Шкільні проекти".
Видавництво педагогічної преси та літератури "Шкільний світ".
Журнал "Фізико-математична освіта".
Go Pollock це помічник вчителя, що збагачує Ваш урок миттєвою візуалізацією рівня розуміння та прогресу усього класу в живому часі.
Бібліометрика української науки. Рейтинг наукових колективів.
<span>const n=10;
var
i,k,min,max:integer;
x,y:array[1..n]of integer;
z:array[1..2*n]of integer;
function four(n:integer):string;
var s:string;
begin
repeat
s:=s+IntToStr(n mod 4);
n:=n div 4;
until n=0;
result:=ReverseString(s);
end;
begin
for i:=1 to n do
begin
x[i]:=random(-10,10);
y[i]:=random(-10,10);
if (x[i] mod 2=0) and (x[i]>0) then
begin
k:=k+1;
z[k]:=x[i];
if k=1 then
begin
min:=z[1];
max:=z[1];
end;
if z[k]>max then max:=z[k];
if z[k]<min then min:=z[k];
end;
if (y[i] mod 2=0) and (y[i]>0) then
begin
k:=k+1;
z[k]:=y[i];
if k=1 then
begin
min:=z[1];
max:=z[1];
end;
if z[k]>max then max:=z[k];
if z[k]<min then min:=z[k];
end;
end;
write('Массив X:');
for i:=1 to n do write(x[i]:4);
writeln;
write('Массив Y:');
for i:=1 to n do write(y[i]:4);
writeln;
write('Массив Z:');
for i:=1 to k do write(z[i]:4);
writeln;
write('Измененный массив Z:');
for i:=1 to k do
begin
if z[i]=min then z[i]:=max
else
if z[i]=max then z[i]:=min;
write(z[i]:4);
end;
writeln;
write('Массив Z по основанию 4:');
for i:=1 to k do write(four(z[i]):4);
<span>end.</span></span>
Program xxx;
uses CRT;
var
a, i:integer;
begin
readln(a);
while (a<>0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.