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

Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которых кратным трём.

👇
Ответ:
anchertow
anchertow
09.06.2022

Как-то так...

Program g;
Var
A, B : Integer;
N : Integer;
S : Integer;
z:array[0..16] of integer;
i : Integer;
v:integer;
Begin
A:=(-20);
B:=20 ;
N:=16 ;
For i := 1 To N Do
Begin
S := Trunc(Random(B-A)+A);
WriteLn (i:2,'-е случайное число:',S:4);
End;
begin
writeln('Индексы элементов кратных 3:');
for v:=0 to 16 do begin
z[v]:=random(40)-20;
if z[v] mod 3 = 0 then write(v, ' ')
end;
end;
End. 

4,5(53 оценок)
Ответ:
physikman
physikman
09.06.2022

var

 i:integer;

 a:array[1..16]of integer;

begin

 for i:=1 to 16 do

begin

 a[i]:=random(40)-20;

 if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

4,4(48 оценок)
Открыть все ответы
Ответ:
almas05
almas05
09.06.2022

Var a:array [0..2,0..2] of integer;

Position:array[0..1,0..1] of byte;

i,j,max,min:integer;

Procedure print(a:array of array of integer);

Begin

For i:integer:=low(a) to high(a) do begin

For j:integer:=low(a[i]) to high (a[i]) do

Write(a[i,j],' ');

Writeln;

End;

End;

Begin

Max:=integer.minvalue;

min:=integer.maxvalue;

for i:=low(a) to high(a) do

For j:=low(a[i]) to high(a[i]) do

A[i,j]:=random(10);

Print(a);

for i:=low(a) to high(a) do

For j:=low(a[i]) to high(a[i]) do

Begin

If (a[i,j]<min) then begin

Min:=a[i,j]; position [0,0]:=i; position [0,1]:=j;

End;

If (a[i,j]>max) then begin

Max:=a[i,j]; position [1,0]:=i; position [1,1]:=j;

End;

End;

Swap(a[position[0,0], position [0,1]],a[position [1,0]],a[position [1,1]]);

Print(a);

End.

4,4(99 оценок)
Ответ:
mivliev38p08iax
mivliev38p08iax
09.06.2022

матрица заполняется случайно

программа на pascalabc

Var

max,min,mina,minb,maxa,maxb,a,b,c: integer;

mas: array[1..3,1..3] Of integer;

Begin

writeln('до :');

For a:=1 To 3 Do

For b:=1 To 3 Do

Begin

mas[a,b] := random(100);

If mas[a,b]>max Then

Begin

max := mas[a,b];

maxa := a;

maxb := b;

End;

If (min=0)Or(mas[a,b]<min) Then

Begin

min := mas[a,b];

mina := a;

minb := b;

End;

write(mas[a,b],' ');

End;

c := mas[maxa,maxb];

mas[maxa,maxb] := mas[mina,minb];

mas[mina,minb] := c;

writeln;

writeln('после :');

For a:=1 To 3 Do

For b:=1 To 3 Do

write(mas[a,b],' ');

4,7(50 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ