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

Составить программу заполнения массива a(20) случайными числами до 50 заменить числа < 20нулями.распечатать массив в с троку

👇
Ответ:
tttyadoyan235
tttyadoyan235
20.11.2020
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var a:=ArrRandom(20,1,50); a.Println;
  for var i:=0 to 19 do
    if a[i]<20 then a[i]:=0;
  a.Println
end.

Пример
44 48 5 39 18 4 25 45 33 49 10 30 15 23 31 30 42 10 3 34
44 48 0 39 0 0 25 45 33 49 0 30 0 23 31 30 42 0 0 34
4,5(11 оценок)
Открыть все ответы
Ответ:
Shermetovelyar552
Shermetovelyar552
20.11.2020

а) мошенничество  

-Мошенничество — хищение чужого имущества или приобретение права на чужое имущество путём обмана или злоупотребления доверием. Лицо, занимающееся этим, называется мошенник или мошенница. При этом под обманом понимается как сознательное искажение истины (активный обман), так и умолчание об истине (пассивный обман).

б) спам Ненужные адресату электронные послания, рекламные письма и т. п., рассылаемые отдельными фирмами по Интернету или электронной почте

в) фишинг

Фишинг – это одна из разновидностей мошенничества в интернете с целью получения незаконного доступа к конфиденциальным данным пользователей. По некоторым данным, ещё в 2013 году на 509 всех писем, отправленных по электронной почте, приходилось одно фишинговое письмо

г) фистинг

Фи́стинг (от англ. fist — кулак) — сексуальная практика[1], которая подразумевает введение нескольких пальцев (фингеринг) или кулака одной или нескольких рук в вагину или анус.

4,7(9 оценок)
Ответ:
vb8515401
vb8515401
20.11.2020
Program spusku;
uses crt;
type
      spusok=^elem;
      elem=record
          data:integer;
          next:spusok;
      end;
var i:spusok;

procedure add(var current:spusok; elem:integer);
var x:spisok;
begin
    new(x);
    x^.data:=elem;
    x^.next:=nil;
    current^.next:=x;
    current:=x;
end;

procedure stvor(var i:spusok);
var p:spisok; n:integer;
begin
   i:=nil;
   writeln('Vvedite spusok celux 4usel. 0-konec');
   readln(n);
   add(i,n);
   readln(n);
   while n<>0 do
   begin
     p:=i;
     while p^.next<>nil do
     p:=p^.next;
     add(p,n);
     readln(n);
   end;
end;

procedure minmax(var i:spusok);
var p:spusok; kmin, kmax:integer;
begin
   kmin:=1000000;
   kmax:=0; 
   while i<>nil do
     begin
     p:=i;
     if p^.data>kmax then kmax:=p^.data;
     if p^.data<kmin then kmin:=p^.data;
     i:=i^.next;
   end;
   writeln('raznost =', kmax-kmin)
end;

BEGIN
clrscr;
stvor(i);
minmax(i);
readkey;
end.
4,5(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ