нужно набрать этот вопрос в яндксе вот там тебе точно подскажут,а так просто вы сами сайт не сделаете. Это очень долгая и тяжёлая работа.
<span>Человек лучше понимает и запоминает ту информацию, которая представлена наглядно — с помощью рисунков, фотографий, схем, диаграмм.</span>И дети, и взрослые любят иллюстрированные книги, потому что рисунки позволяют очень быстро понять, о чём идет речь. Так, чтобы понять, о чем написано в выделенном ниже фрагменте текста, вам потребуется приблизительно полминуты; чтобы воспринять смысл рисунка, будет достаточно нескольких секунд. Проверьте.<span>В современных супермаркетах каждый товар имеет на упаковке штрих код — метку, состоящую из чёрных линии. Для чтения штрих-кодов применяют специальные штрих-сканеры. С их помощью в компьютер вводят данные о стоимости покупки.
</span><span>
Для того чтобы показать, как устроены окружающие нас объекты (предметы, процессы, явления) и как они связаны друг с другом, используют схемы.</span><span>Каждый ученик 5 класса знает схематичное изображение приставки, корня, суффикса и окончания слова. Поэтому вы сразу поймёте, о чём идёт речь, если учитель русского языка попросит подобрать слова, соответствующие следующей схеме:</span><span>Для наглядного представления разных числовых данных используют диаграммы.</span>
5*5=25+5=30 это проверенно
2)
Program Massiv1;
var a:array[1..10] of real;
i:integer;
s:real;
begin
clrscr;
write('Введите элементы массива: ');
s:=0;
for i :=1 to 10 do
begin
readln(a[i]);
if (a[i]>0) then s:=s+1;
end;
writeln;
for i :=1 to 10 do writeln(a[i]:3:3);
writeln('Количество положительных элементов:',s);
readkey;
end.
3)
Program Massiv2;
var a:array[1..10] of integer;
i,b:integer;
begin
clrscr;
b:=2;
for i :=1 to 10 do
begin
a[i]=i+b;
b:=b+1;
write(a[i]:2);
end;
readkey;
end.
Uses crt;
const N=3;M=3;
L=9;
var a:array [1..N,1..M] of real;
b:array [1..L] of real;
i,j,x,k:integer;
begin
x:=1;
for i:=1 to N do
for j:=1 to M do
begin
read(a[i,j]);
if a[i,j]>0 then
begin
b[x]:=a[i,j];
x:=x+1;
end;
end;
clrscr;
for i:=1 to N do
begin
for j:=1 to M do
write(a[i,j]:3:0);
writeln;
end;
writeln;
for k:=1 to x-1 do
write(b[k],' ');
<span>end.</span>