2
var a:array [1..7] of real ;
i:integer;
begin
write ('заполни массив');
for i:=1 to 7 do begin
readln(a[i]);
if a[i]>0 then a[i]:=100;
end;
writeln ('выведи новый массив');
for i:=1 to 7 do
writeln ( a[i]);
end.
3
var a:array [1..10] of real;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do begin
readln(a[i]);
if i mod 2=0 then s:=s+a[i];
end;
write ('сумма чисел=' s);
end.
Гипертекст-совокупность документов, содержащих текстовую, аудио и видеоинформацию, связанных между собой взаимными ссылками в единый текст.
Гипертекст может быстро перенаправить пользователя к нужной информации(странице).
Вскипятить воду
обдать заварник кипятком.
положить заварку
залить кипятком
дать настояться
налить в чашки.
Можно пить чай.
(A ∧ B) ∧ (C ∧ (C ∨ A)) = A·B·(C·(C+A)) = ABC(C+A) = ABCC+AABC =
ABC+ABC = ABC = A ∧ B ∧ C