М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sasha10072004
sasha10072004
21.03.2022 16:19 •  Информатика

40 ! паскаль, информатика 1) дан массив из 10-ти случайных чисел. напечатать его и определить сумму элементов, стоящих на нечетных местах. 2) дан массив из 10-ти случайных чисел. напечатать его и определить, есть ли в массиве два соседних четных элемента

👇
Ответ:
ioiaaea33
ioiaaea33
21.03.2022
Const
  n=10;
var
  x:array[1..n] of integer;
  i,s:integer;
  found:boolean;
begin
  { инициализация массива }
  Randomize;
  Writeln('Элементы массива');
  for i:=1 to n do
  begin
    x[i]:=Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  { задание 1 }
  s:=0; i:=1;
  while i<=n do
  begin s:=s+x[i]; i:=i+2 end;
  Writeln('Cумма элементов на нечетных местах равна ',s);
  { задание 2 }
  for i:=1 to n-1 do
  begin
    found:=(x[i] mod 2 = 0) and (x[i+1] mod 2 = 0);
    if found then break
  end;
  if found then Writeln ('Пара соседних четных элементов: ',x[i],', ',x[i+1])
  else Writeln('Нет пары соседних четных элементов')
end.

Тестовое решение:
Элементы массива
  3 11 42 38 36 47  8 15 15 13
Cумма элементов на нечетных местах равна 104
Пара соседних четных элементов: 42, 38
4,4(51 оценок)
Ответ:
MDMOD1
MDMOD1
21.03.2022
1)
var a:array[1..10] of integer;
i,n:integer;
begin
n:=0;
write ('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
if i mod 2 <> 0 then n:=n+a[i];
end;
for i:=1 to 10 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Сумма элементов стоящих на нечётных местах = ',n);
end.

2)
var a:array[0..10] of integer;
i,n:integer;
begin
n:=0;
write ('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
repeat
i:=1;
if (a[i] mod 2 = 0) and (a[i-1] mod 2 =0) then n:=1;
i:=i+1;
until n=1;
WRITELN;
if n<>0 then writeln ('Есть') else writeln ('Нету');
end.
4,6(62 оценок)
Открыть все ответы
Ответ:
Asked9me9
Asked9me9
21.03.2022
Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.
4,8(90 оценок)
Ответ:
вой7
вой7
21.03.2022
Program aaa;
var
Y:array[1..1000,1..1000] of longint;
n,m,i,j,count5,countm9,s5,sm9:longint;
begin
writeln('введите размерность массива');
read(n,m);
writeln('введите массив');
for i:=1 to n do
 for j:=1 to m do
   read(Y[i,j]);
count5:=0;
countm9:=0;
s5:=0;
sm9:=0;
for i:=1 to n do 
for j:=1 to m do
 begin
  if Y[i,j]>5 then
      begin 
       inc(count5);
       s5:=s5+Y[i,j]
      end;
  if Y[i,j]<-9 then 
      begin 
        inc(countm9);
        sm9:=sm9+Y[i,j]
      end;
  end;
writeln('всего элементов больше 5:',count5,' ,сумма этих элементов равна:',s5);
writeln('всего элементов меньше -9:',countm9,' ,сумма этих элементов равна:',sm9)
end.
4,7(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ