Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
Придумайте две задачи на конъюнкцию и дизъюнкцию(с решением)
<span>пожалуйста</span>
Такой метод защиты информации называется маскировкой
Ну если все в паскале то там должна быть примерно такая прога
номер 4
begin
repeat
a>0
until
a=abs(a)
end
попробуй так
11
begin
if a<0 then
write ('a');
else
end
А вот с последнимм попробуй аналоичное действе сделать
3 задание
.txt -текстовый файл
.bmp - <span>растровое изображение
.jpg - </span><span>фотоизображений ну или просто изоброжение
.doc - документ (формат компании Майкрасовт)
4 задание
где рисунок 1 </span>