<u>По подробнее можно?!</u>
Не видно. Большие фото зделай.
<span>насколько я знаю основой древнегреческого алфавита был финикийский . Греки лишь модернизировали его , в частности они добавили гласные буквы , которых в финик. алфавите не было</span>
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
Диск называется: С......... ......