Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
используется язык pascal
program pr;
var
mas: array[1..7] of integer;
i: integer;
begin
writeln('вводим значения в массив');
for i: =1 to 7 do readln (mas[i]);
writeln('выводим значения из массива');
for i: =7 downto 1 do writeln(mas[i]);
readln;
end;
x: array[1..15]of integer;
i,min,z: integer;
min: =32000;
z: =0;
for i: =1 to 15 do
readln(x[i]);
if x[i]> 0 then if x[i]< min then min: =x[i];
if x[i]=0 then inc(z);
writeln(min);
writeln(z);
end.
const
n=10;
a: array[1..n] of integer;
i,x,k,j,s: integer;
randomize:
for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
writeln(s);
1 байт/с = 23 бит/с = 8 бит/с; 1 кбит/с = 210 бит/с = 1024 бит/с; 1 мбит/с = 210 кбит/с = 1024 кбит/с; 1 гбит/с = 210 мбит/с = 1024 мбит/с.
Популярные вопросы