Integer - целые числа
real,float(double) - дробные числа
program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
3) var a:array [1..1000] of longint; n,k,i:integer;
<span>begin </span>
<span>readln(n); k:=0;</span>
for i:=1 to n do
read (a[i]);
for i:=1 to n do
<span>if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.</span>
begin
var P := ReadArrInteger('Пол (0-жен, 1-муж) - 8 значений:', 8);
var S := ReadArrInteger('0-холост, 1-женат (8 значений):', 8);
var (k10, k00) := (0, 0);
for var i := 0 to 7 do
if (P[i] = 1) and (S[i] = 0) then
Inc(k10)
else if (P[i] = 0) and (S[i] = 0) then
Inc(k00);
Println('Холостых мужчин:', k10);
Println('Незамужних женщин:', k00)
end.
Информативность сообщения определяется понятностью и наличием новых знаний.