сервис вопросов и ответовСоставьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которых кратн
5-9 класс|
|
ым трём.
Vigovskay1984
26 нояб. 2014 г., 23:36:01 (9 лет назад)
PZ3249
27 нояб. 2014 г., 1:01:35 (9 лет назад)
Как-то так...
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.
Alexaborisuyk
27 нояб. 2014 г., 2:54:40 (9 лет назад)
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.
Ответить
Другие вопросы из категории
Какое значение будет принемать значение Y после выполнения фрагментов программы: 1. var x,y: INTEGER; BEGIN y:=0; for x:=1
to 9 do
y:=y+x;
writeln(y=,y);
END.
2.var x,y: INTEGER;
BEGIN
y:=0;
for x:=10 downto 5 do
y:=y+1
writeln(y=,y);
END
3. var x,y: INTEGER;
BEGIN
y:=1;
x:=15;
while x>5 do
begin
x:=x-3;
y:=y*x;
end;
writeln(y=,y)
END.
4. var x,y: INTEGER;
begin
y:=1;
x:=10;
repeat
y:=y*x+x;
x:=x-2;
until x<0;
writeln(y=,y);
end.
пожалуйста напишите подробное решение и как получаются ответы
Читайте также
1. Разработать схему алгоритма, который вводит массив из N целых
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
2. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с чётными номерами. Протестировать алгоритм на произвольных массивах размерностью 5 и 8 элементов.
3. Разработать схему алгоритма, который вводит массив из N целых чисел и выводит на экран элементы с нечётными номерами в обратном порядке. Протестировать алгоритм для следующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9
P.S. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
1)Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2)Задан массив из 11 целых чисел. Посчитать количество нечётных
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
Решите пожалуйста программу в паскале:Составить программу, которая формирует массив из 10 случайных чисел от -30 до 30 и если третий элемент больше нуля,
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.
Вы находитесь на странице вопроса "Составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в этом массиве индексы элементов, значения которых кратн", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.