var a:array[1..250] of string; size:real; i,n:integer; text:string;
begin
writeln('daite N'); readln(n);
for i:=1 to n do
begin
readln(size);
if (size>1024) or (size=1024) then
begin
size:=size/1024;
str(size:0:2,text);
a[i]:=text+' kb';
text:=''; size:=0;
end else
begin
str(size,text); a[i]:=text+' bytes'; text:=''; size:=0;
end;
end;
for i:=1 to n do write(a[i],' '); readln;
end.
Если нужны объяснения то пиши в личку)
Program zada4a;
var
i,x,n: integer;
a: array [1..100] of integer;
begin
n:=0;
write('Введите x - ');
readln(x);
for i:=1 to 5 do - если попросят чтобы выводилось больше 5 чисел, то поменяйте цифру 5 на нужную.
begin
a[i]:=random(21); -это строчка озночает, что задаются числа интервалом от 0 до 20.
write(a[i]:5);
end;
writeln;
for i:=1 to 5 do
begin
if x=a[i] then
begin
writeln('Элемент в массиве равный ',x,' находится под номером - ',i);
n:=n+1;
end;
end;
if n=0 then
write('Элемент c таким значением отсутствоет');
end.
задание 1:
использовать Робот
алг
нач
цел с=0
нц
вверх
если слева стена то закрасить; с:=1 всё
кц при с=1 и слева свободно
нц пока снизу свободно
если слева стена то с:=1 иначе с:=0 всё
вниз
если с=1 и слева стена то закрасить всё
кц
нц
если снизу свободно то с:=0 всё
вправо
если снизу стена то
закрасить
если с=0 то с:=2 всё
всё
кц при с=2 и снизу свободно
кон
задание 2:
использовать Робот
алг
нач
цел с=0
нц
влево
если сверху стена то закрасить; с:=1 всё
кц при с=1 и сверху свободно
нц пока справа свободно
если сверху стена то с:=1 иначе с:=0 всё
вправо
если с=1 и сверху стена то закрасить всё
кц
нц
если справа свободно то с:=0 всё
вниз
если справа стена то
закрасить
если с=0 то с:=2 всё
всё
кц при с=2 и справа свободно
кон