составить блок-схему по программе! program zadac;
var z,N:integer;
A:array [1..250] of integer; B:array [1..250] of integer; C:array [1..250] of real;
procedure funс(x:integer);
var j:integer;
begin
for j:=1 to N do
begin
A[j]:=random(91)-43;
write(a[j]:5,'');
end;
writeln;
for j:=1 to N do
begin
B[j]:=random(88)-36;
write(B[j]:5,'');
end;
writeln;
end;
begin
write('Введите кол-во элементов массива N = ');
read(N);
funс(1);
for z:=1 to N do
begin
C[z]:=(A[z]+B[z])/2;
write(C[z]:5:1);
end; end.
a - 11010000 10110000
б - 11010000 10110001
в - 11010000 10110010
г - 11010000 10110011
д - 11010000 10110100
е - 11010000 10110101
ё - 11010001 10010001
ж - 11010000 10110110
з - 11010000 10110111
и - 11010000 10111000
й - 11010000 10111001
к - 11010000 10111010
л - 11010000 10111011
м - 11010000 10111100
н - 11010000 10111101
о - 11010000 10111110
п - 11010000 10111111
р - 11010001 10000000
с - 11010001 10000001
т - 11010001 10000010
у - 11010001 10000011
ф - 11010001 10000100
х - 11010001 10000101
ц - 11010001 10000110
ч- 11010001 10000111
ш - 11010001 10001000
щ - 11010001 10001001
ъ - 11010001 10001010
ы - 11010001 10001011
ь - 11010001 10001100
э - 11010001 10001101
ю - 11010001 10001110
я - 11010001 10001111
Цифры:
1 - 110001
2 - 110010
3 - 110011
4 - 110100
5 - 110101
6 - 110110
7 - 110111
8 - 111000
9 - 111001
10 - 110001 110000
Ошибка - 0000000000000000begin
for a:=1 to 7 do
for b:=a+1 to 8 do
for c:=b+1 to 9 do
begin
n:=a*100+b*10+c;
write(n:4)
end;
end.
var
i,j,n:integer;
a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random*2-1;
write(a[i,j]:20:15);
if a[i,j]>=0 then n:=n+1;
end;
writeln;
end;
writeln('Количество неотрицательных: ',n);
end.
var
i,j,sum:integer;
a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
sum:=sum+a[i,j];
write(a[i,j]:4);
end;
writeln('sum=':8,sum);
sum:=0;
end;
end.