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

Кумир! , с : заполните массив двадцатью числами так, что каждый пятый элемент равен 100, а остальные равны своему номеру.

👇
Ответ:
даринкал
даринкал
22.09.2021
Const
  n = 20;

var
  i: integer;
  A: array[1..n] of integer;

begin
  for i := 1 to n do
    if i mod 5 = 0 then A[i] := 100
    else A[i] := i;
  for i := 1 to n do
    writeln(A[i]);
end.
4,8(80 оценок)
Открыть все ответы
Ответ:
kadri1
kadri1
22.09.2021
Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.
4,6(13 оценок)
Ответ:
Lisaezhik
Lisaezhik
22.09.2021
//Dev-C++ (С)

#include <stdio.h>

int main(void)
 {int DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin;
 scanf("%d %d %d %d",&DepHour,&DepMin,&DurHour,&DurMin);
 if(DepMin+DurMin>=60)
  {ArrHour=DepHour+DurHour+1;
    ArrMin=DepMin+DurMin-60;}
   else
    {ArrHour=DepHour+DurHour;
    ArrMin=DepMin+DurMin;}
   printf("%d:%d",ArrHour,ArrMin);
 return 0;}

//PascalABC.NET 3.2 сборка 1318

Var 
DepHour,DepMin,DurHour,DurMin,ArrHour,ArrMin:integer;
begin
readln(DepHour,DepMin,DurHour,DurMin);
if DepMin+DurMin>=60 then
 begin
  ArrHour:=DepHour+DurHour+1;
  ArrMin:=DepMin+DurMin-60;
 end
 else
 begin
  ArrHour:=DepHour+DurHour;
  ArrMin:=DepMin+DurMin;
 end;
 write(ArrHour,':',ArrMin);
 end.

Пример ввода:
1 40 12 23
Пример вывода:
14:3
4,6(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ