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

Дан одномерный массив целых чисел поменять местами самый первый и самый последний элемент не равный 0. программа pascal

👇
Ответ:
Guwanc98
Guwanc98
10.04.2022

var a:array[1..10]of integer;
i,k,i1:integer;
begin
for i:=1 to 10 do readln(a[i]);

for i:=10 downto 1 do if a[i]<>0 then begin k:=a[i]; i1:=i; break; end;

a[i1]:=a[1];
a[1]:=k;
for i:=1 to 10 do write(a[i],' ');
end.

4,6(13 оценок)
Открыть все ответы
Ответ:
madinaseidahmet
madinaseidahmet
10.04.2022

Эти языки близки к Python своей динамической семантикой, но настолько различаются своим подходом к синтаксису, что их сравнение превращается почти в религиозный спор: является ли скудость синтаксиса Lisp преимуществом или недостатком? Следует заметить, что Python имеет интроспективную совместимость подобную к аналогичной у Lisp, а программы на Python могут конструировать и исполнять элементы программ на лету.

Обычно практичность является решающим фактором: Common Lisp большой (во всех смыслах), а мир Scheme разделяется на множество несовместимых версий, тогда как Python имеет единую, свободную, компактную реализацию.

Объяснение:

Объяснение:

УДАЧИ С ЛЮБОВЬЮ EXLENG❤

4,8(96 оценок)
Ответ:
маріна2017
маріна2017
10.04.2022
Первое 

var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
end.

Второе

var
a:array[1..100] of integer;
i,j:integer;
procedure swap(var x,y: integer);
   var t: integer;
 begin
    t := x;
    x := y;
    y := t
 end;
begin
for i:=1 to 100 do a[i]:=random(100);
for j:=1 to 99 do
for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
if a[1]<>a[2] then writeln('a[1]=',a[1]);
for i:=2 to 99 do if (a[i]<>a[i+1]) and (a[i]<>a[i-1]) then writeln('a[',i,']=',a[i]);
if a[100]<>a[99] then writeln('a[100]=',a[100]);
end.
4,5(60 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ