Ввод с клавы:
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.
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
Только для третьего. Эксель и я сошлись во мнениях.
Компьютер внес в текст много всего
например символы смайлы
¤♡♥€£¥₩%°•○●□■◇◆♧♣▲▼▶◀↑↓←→☆★▪:-);-):-D:'(:O также можно изменять текст и зачеркивать
в общем много всего