Прикладное программное обеспечение
F1a2.p1
sf2a2.p3
faaa.po
flag.pik
flag.png
*- любой символ, в том числе и пустой
? - один символ
Процессор это как мозг, обработает информацию которая поступает в него и выводит её в другие устройства
1)
program test;
uses crt;
var
arr:array[1..10] of integer;
i,cou:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Itput arr[',i,'] ');readln(arr[i]);
if (arr[i]>0) and (arr[i] mod 2 = 0) then cou:=cou+1;
end;
writeln(cou);
end.
2)Тут вообще можно 1 циклом обойтись, но так не надо заворачиваться с перетаскиванием курсора.
program test;
uses crt;
var
arr:array[1..10] of integer;
i:integer;
begin
randomize;
clrscr;
for i:=1 to 10 do
begin
arr[i]:=random(20)+1;
write(arr[i],' ');
end;
writeln;
for i:=1 to 10 do
if (arr[i]>5) and (arr[i]<15) then write(arr[i],' ');
end.