Книга, т. к. это носитель информации
var
A: array [1..12] of integer; //Массив, состоящий из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива
begin
writeln('Введите А[', i, ']');
readln(a[i]);
end;
write('Исходный массив: ');
for i:= 1 to 12 do {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}
begin
write(a[i], ' ');
if (a[i] > 0) and (a[i] mod 2 = 0) then
a[i]:= 5;
end;
writeln;
write('Измененный массив: ');
for i:= 1 to 12 do //Распечатываем измененный массив
write(a[i], ' ');
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
A) Вкторная графика.
B) на распечатанном отсутствует треугольник.
Незачто :3
Входы и выходы
USB проводники
принтер
ксерокс
клавиатура
переходники
