Дан одномерный целочисленный массив размерностью n. сформировать новый массив из элементов исходного, кратных заданному числу а и больших по модулю их индекса. если такие элементы отсутствуют, то выдать об этом сообщение. паскаль

👇

Ответ:

lira0804

11.10.2022

Const n = 10;
var
b: array[1..n] of integer;
c: array[1..n] of integer;
i, a, k: integer;
begin
//считываем массив b
for i:=1 to n do
readln(b[i]);
//вводим a
readln(a);
k:=0;
for i:=1 to n do
//если элемент кратен А и по модулю больше I то
if (b[i] mod a = 0) and (abs(b[i]) > i) then
begin
//увеличиваем k на 1 и присваиваем c[k] a[i]
inc(k);
c[k] := b[i];
end;
if k = 0 then
writeln('Таких элементов нет')
else
for i:=1 to k do
writeln(c[k]);
end.

4,4(20 оценок)

Открыть все ответы

Ответ:

MrDackes

11.10.2022

1. Вот так это пишется с функцией

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    Result:=not found
    end
end;

begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
    Where(x->IsPrime(x)).Count)
end.

Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3

2. А вот так это пишется с процедурой

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
    var found:= (n mod 2 = 0);
    var p:=3;
    while (not found) and (sqr(p)<=n) do
      begin
      found:=(n mod p = 0);
      p+=2
      end;
    res:=not found
    end
end;

begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
    IsPrime(e,prime);
    if Prime then Inc(k)
    end;
Writeln('k=',k)
end.

Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4

4,8(69 оценок)

Ответ:

ryazhechkina

11.10.2022

Web-портал - это совокупность соединенных непосредственно и через сеть «Интернет» аппаратных средств, включающих компьютеры и машиночитаемые электронные носители информации с заранее записанной на них информацией и / или выполнены с возможностью записи и считывания информации в виде компьютерных программ, баз данных и т. д., выполнена с возможностью обработки указанной информации и команд пользователя системы и предоставления ему Интернет-сервисов как результатов обработки указанной информации и команд.

Web-сайт - это совокупность веб-страниц, доступных в сети Интернет, которые объединены как по содержанию, так и по навигацией под единым доменным именем. Физически сайт может размещаться как на одном, так и на нескольких сервера

4,4(57 оценок)

Это интересно:

Образование-и-коммуникации

19.07.2021

Как преобразовать время из 12-часового в 24-часовой формат...

Стиль-и-уход-за-собой

03.10.2020

10 простых правил ухода за кожей лица в домашних условиях...

Компьютеры-и-электроника

07.04.2020

Установка HD игр с кэшем на Android: подробная инструкция...

Стиль-и-уход-за-собой