ПОМОГИТЕ С ПОЖАЛУЙСТА ИНФОРМАТИКОЙ Написать программы ПАСКАЛЬ: 1) которая сформирует...

Question

ПОМОГИТЕ С ПОЖАЛУЙСТА ИНФОРМАТИКОЙ
Написать программы ПАСКАЛЬ:
1) которая сформирует массив из 20 нечетных чисел и подсчитает сумму и среднее арифметическое этих чисел.
2) которая сформирует массив из 15 случайных чисел от 35 до 75 включительно, найдет количество элементов, значение которых лежит от 50 до 60.

Answer 1

Var
   A:array[1..20] of integer;
   i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to 20 do
    Begin
    A[i]:=i*2-1;
    Write(A[i],' ');
    S:=S+A[i]
    End;
WriteLn;
WriteLn('S = ',S);
WriteLn('Sr = ',S/20);
End.



Var A:array[1..15] of integer;
    i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив: ');
For i:= 1 to 15 do
    Begin
    A[i]:=random(41)+35;
    Write(A[i],' ');
    if (A[i]>=50)and(A[i]<=60) then k:=k+1<br>    End;
WriteLn;
WriteLn('k = ',k)
End.

Answer 2

1 задание
uses crt;
var a: Array[1..255] of Integer;
n, sum, srsum: Integer;
begin
n := 1;
for var i := 1 to 255 do
if (i mod 2) <> 0 then
begin
if n = 20 then exit;
a[n] := i;
inc(n);
end;

for var i := 1 to 20 do
sum := sum + a[i];

writeln(srsum div 20);
end.

2 задание
uses crt;
var a: Array[1..15] of Integer;
i, k: Integer;
begin
Randomize;
for i := 1 to 15 do
begin
a[i] := Random(40) + 35;
end;
for i := 1 to 15 do
if (a[i] <= 60) and (a[i] >= 50) then inc(k);
writeln(k);
end.

Comments

1прога: Program1.pas(16) : Неожиданный символ '"' Program1.pas(5) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

---

Program1.pas(13) : Параметр цикла for в PascalABC.NET должен описываться в заголовке цикла

---

2 прога Program1.pas(5) : Встречено '+', а ожидалось ';'

---

http://pascalabc.net/WDE/

---

Сами ПРОВЕРЬТЕ

---

я исправил

---

нужно вместо " ставить '

---

вторую программу исправил

---

проверь

---

нет не идут