Надеюсь разберешься в цифрах)
Var
a: array [1..5] of integer;
s, i: integer;
begin
for i:=1 to 5 do
begin
write('Введите значение: ');
read(a[i]);
if a[i]>0 then s:=s+a[i];
end;
writeln('Сумма положительных членов массива: ', s);
<span>end.</span>
Var i:Integer;s:real;
A:array[1..130]of integer;
Begin
S:=0;
For i:=1 to 130 do begin
A[i]:=random(100);
S:=s+A[i];
End;
S:=s/130;
Write(s);
End.
Оператор copy(s,3,10) выдает фразу от 3-ей по 10-ый символ из строки s
оператор copy(s,1,5) добавляет (так как знак +) фразу с 1-го по 5
полученная фраза получает такое же имя s
из полученной фразы s удаляются символы с 7 по 12
оператор <span>ansiuppercase должен перевести символы фразы s в верхний регистр
</span>в итоге получим IS IF
Одинаково подключаютса если драйвера есть на компе