=( блок схемы

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-5;
  write(a[i]:5:1);
 end;
writeln;
writeln;
writeln('Измененный массив:');
for i:=1 to n do
 begin
  if a[i]<0 then a[i]:=a[i]+0.5
  else a[i]:=0.1;
  write(a[i]:5:1);
 end;
readln
end.

uses crt;
var a,b,i,k:integer;
begin
clrscr;
write('Введите число-предполагаемую сумму цифр трехзначного числа A=');
readln(a);
write('Введите число для проверки кратности B=');
readln(b);
k:=0;
for i:=100 to 999 do
if((i div 100)+(i div 10 mod 10)+(i mod 10)=a)and(i mod b=0)then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('Таких чисел нет!');
readln
end.

uses crt;
var a,max:real;
    n,i:integer;
begin
clrscr;
write('Сколько чисел ввести? n=');
readln(n);
writeln('Введите ',n,' отрицательных чисел:');
readln(max);
for i:=2 to n do
 begin
  readln(a);
  if a>max then max:=a;
 end;
if max>=0 then write('Вы вводили неотрицательные числа')
else write('Максимальное=',max:0:1);
readln
end.

uses crt;
var n:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
if n<0 then n:=abs(n);
k:=0;
while n>0 do
 begin
  n:=n div 10;
  k:=k+1;
 end;
write('Количество цифр=',k);
readkey
end.

Uses crt;
Var t,y,i:integer;
Begin
ClrScr;
t:=1;
Repeat
y:=t*9 div 5 + 32;
Writeln('t= ',t,'  y=',y);
t:=t+1;
if t mod 20=0 then readln
Until t>100;
Readln
End.

uses crt;
var
a,b,c:integer;
begin
clrscr;
readln(a);
readln(b);
if a mod b = 0 then writeln('da')
 else writeln('net');
 readkey;
end.

const nmax=100;