Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Здравствуй krisa4ka0!
Как называется набор данных на устройстве долговременной памяти, имеющий имя?
Такой набор называется файлом!
1)
var
a,b: array [1..100] of integer;
i,j,k,a,b,f: integer;
begin
randomize;
readln(a);
readln(b);
k: =0;
for i: =1 to 20 do
a[i]: =random(135)-45;
f: =0;
for j: =a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f: =1;
if f=0 then
k: =k+1;
b[k]: =a[i];
end;
for i: =1 to k do
writeln(b[i]);
end.
2)
i,j,k: integer;
readln(k);
j: =0;
writeln(a[i]);
for i: =1 to 19 do
if a[i]*a[i+1]> 0 then
j: =j+1;
b[j]: =a[i];
b[j]: =k;
end
else
b[j]: =a[20];
for i: =1 to j do
writeln(b[j]);
3)
a,b: array [1..20] of integer;
i,j,k1,k2: integer;
readln(k1);
readln(k2);
if k1< k2 then
for i: =1 to k1-1 do
b[i]: =a[i];
for i: =k2+1 to 20 do
j: =k2;
for i: =k1 to k2 do
j: =j-1;
qbasic
screen 7
input x
input y
input c
s=x+y/2*c
print "x+y/2*c="; s
Популярные вопросы