Сказано было сформировать массивы с имененем А и В. Заполняем их целыми числами, так что и объявить массивы можно как целые. Но это мелочи, не обязательные.
var
<span>a, b: array[1..20]of integer; </span>
<span> i, s,n: integer; </span>
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
<span> if (a[i] > 0) and (i mod 2 = 0) </span><span>then
begin
</span> n:=n+1; <span>
b[n]:= a[i]; </span>
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
Ответ:
=ЕСЛИ(И(-5<ЯЧЕЙКА1<5;-5<ЯЧЕЙКА2<5);"да";"нет")
Объяснение:
пишешь вместо ЯЧЕЙКА1 и ЯЧЕЙКА2 индексы нужных ячеек с координатами. вставлять функцию там, где в самом задании написано "да" и "нет".
Лицензионной продукцией может пользоваться лицо, оплатившее лицензию на данный продукт
Условно-бесплатной продукцией может пользоваться любое лицо, но с ограничениями, установленными автором
Свободно распространяемой продукцией может пользоваться любое лицо без ограничений, но в некоммерческих целях
утюг-гладить белье
мялка - мять белье.
морозилка - замораживать подукты
печка - разогревать продукты