3 выписать первую букву
4) дописать букву "а"
1 задани это снимок
2 ( спасидо дяде)
Обра́тное число́ (обратное значение, обратная величина) — это число, на которое надо умножить данное число, чтобы получить единицу. Два таких числа называются взаимно обратными.
VAR
x:array[1..100] of real;
n,i,c:integer;
BEGIN
write('n=');
readln(n);
for i := 1 to n do begin
write('x[', i, ']=');
readln(x[ i ]);
end;
c:=0;
for i := 1 to n-1 do if x[ i ]*x[ i+1 ]=1 then c:=c+1;
writeln('c=',c);
readln;
END.
3 for i:=1 to n-1
for j:= i+1 do
if a<a[j]>; a:=a[j]; a[j]:=b end
4 не знаю
Именем массива или переменной может служить любой набор символов, не совпадающий со служебными словами языка Паскаль.
Имена должны начинаться с буквы или символа подчеркивания, могут содержать цифры. Буквы - только латинские (английские).
<u>1. Современный вариант</u>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(15,10,20); a.Println;
Print('среднее',a.Average)
end.
<u><em>Тестовое решение:</em></u>
20 13 16 18 20 19 11 17 16 16 13 12 10 17 10
среднее 15.2
<u>2. Школьный вариант</u>
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
var
a:array[1..15] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to 15 do begin
a[i]:=Random(11)+10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Write('среднее ',s/15)
end.
<u><em>Тестовое решение:</em></u>
19 11 11 12 12 14 16 10 20 19 10 16 16 20 13
среднее 14.6