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

Переведите программу из паскаля в питон: var
a:array[1..100]of integer;
i,j,t,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('ishodnyj massiv');
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
for j:=1 to n-1 do
if (a[j]>=0)and(a[j+1]<0)then
begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t;
end;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.

👇
Ответ:
zhazi9494e
zhazi9494e
25.09.2022

Программа:

#! /usr/bin/env python3

#! encoding: utf-8

from random import randint

def arrayPrint(a):

for i in a:

 print( i, end=' ' )

print()

n = int( input( 'Введите длину массива: ' ) )

a = [ randint(-10, 10) for _ in range(n) ]

print( 'Исходный массив:' )

arrayPrint(a)

for i in range(n):

for j in range(n-1):

 if (a[j] >= 0) and (a[j+1] < 0):

  a[j], a[j+1] = a[j+1], a[j]

 

print('Новый массив:')

arrayPrint(a)

Результат выполнения программы:


Переведите программу из паскаля в питон: var a:array[1..100]of integer; i,j,t,n:integer; begin rando
4,5(54 оценок)
Открыть все ответы
Ответ:
Tenb11
Tenb11
25.09.2022
Program n;
 var 
       m: array[1..12] of integer; 
       i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
   m[i]:=random(41)+150; write(m[i],' '); 
   if  m[i]>180 then k:=k+1;
 end; writeln;
if k>0 then writeln('Такой ученик есть) else writeln('Такого ученика нет');
end.

program n;
var 
     m: array[1..12] of integer; 
      i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
   m[i]:=random(41)+150; write(m[i],' ');
   if  m[i]<160 then k:=k+1;
 end; writeln;
if k>0 then writeln(k,'  ученик(ов/а) имеют рост меньше 160') else writeln('Учеников, рост которых меньше 160, нет');
end.
4,5(44 оценок)
Ответ:
Var a:array[1..100] of integer; //объявляем целочис. массив из 100 элементов
i,j,c,k,n:integer; //целочислительные переменные
f:boolean;// логические переменные
begin // начало программы
writeln('vvedite razmer massiva'); //выводим текст
readln(n); //вводим переменную n
writeln('vvedite el-ty massiva'); //выводим текст
for i:=1 to n do  //повторить n раз
begin write('a[',i,'] = ');readln(a[i]);end;
{отвратный кодстайл. В данном цикле заполняем массив n количеством элементов. Как будто нельзя было объявить динамический массив}
writeln('massiv');       //вывод текста
for i:=1 to n do write(a[i]:4);  //выводим n элементов массива
writeln; //сносим строчку
k:=2; //k=2
while k<=n do //пока k меньше или равно n выполнять
begin //начало тела цикла
c:=a[k]; //с=a[k]
i:=1;     //i=1
if c while f do //ОШИБКА, странное сочетание логического оператора и цикла с предусловием
begin //начало тела вложенного цикла, объявленного ошибочно
a[k-i+1]:=a[k-i];
{элементу массива a, индекс которого равен k-i+1 присваивается элемент массива a, индекс которого равен k-i, по сути, это просто сдвих массива на один элемент}
i:=i+1; //увеличение i на 1
f:=false; //f=ложь
if i if c end; //ОШИБКА, совсем упоротое сочетание условных операторов
a[k-i+1]:=c;
{элементу массива a, индекс которого равен k-i+1 присваивается c}
k:=k+1; //k увеличивается на 1
{                  //комментарий как у меня
for i:=1 to n do write(a[i]:4); //снова вывод от 1 до n элементов массива
writeln; //сноска строки
}
end; //выход из вложенного цикла
//нет выхода из основного цикла
//нет завершения программы
//Абсолютно нерабочий код
//Сожгите автора как ведьму
4,5(25 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ