щетая краску бесконечной
опустить кисть - оп
поднять кисть - по
покрасить жёлтым - пж
покрасить красным - пк
1.оп; 2.пж; 3.по; 4.вправо; 5.оп 6.пк 7.по 8.вправо и т.д весь рисунок
Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.
1) Исполнитель
2)Файл
3)Процессор
4)Или (это так и называется)
5)Монитор
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count)
end.
<u><em>Тестовое решение:</em></u>
-3 4 10 1 2 6 8 7 10 14
Сумма элементов 59
Количество четных элементов 7