11. На координатной плоскости отметьте и пронумеруйте точки со следу- быту? Приведите примеры. ошими - id1692121920230516 от олеся0007 16.05.2023 17:34

Question

Информатика: 11. На координатной плоскости отметьте и пронумеруйте точки со следу- быту? Приведите примеры. ошими координатами: А2,5), B(65), C(11,7), D(11,4), E(6,2), F(2,2), G(4,8), Н(9.9), 1(32), (3,4), К(5,4), L(5,2). Соедините точки: A-B-C-D-E-F-A-G - H-C-G - В - Е -|- J — K-L. После проверки правильности выполнения задания можно раскрасить полученную картинку цветными карандашами. Л​

олеся0007 · Accepted Answer

Program zzz;
var A,B,C: array[1..20] of integer; SB,SC: integer; i,kb,kc: byte;
begin
kb:=0; //количесво элементов в массиве B
kc:=0; //количесво элементов в массиве C
SB:=0; //сумма элементов массива B
SC:=0; //сумма элементов массива C
For i:=1 to 20 do begin
writeln('введите ',i,'-й элемент массива');
readln (A[i]);
if A[i]>=0
then begin kb:=kb+1; B[kb]:=A[i]; SB:=SB+B[kb] end
else begin kc:=kc+1; C[kc]:=A[i]; SC:=SC+C[kc] end
end;
writeln(kb:4, sb:8, kc:4, sc:8);
end.

MOGZ ответил