Организуйте массив.Поменяйте на дисплей значения и индексы элементов,модуль значения которых меньше10
10-11 класс
|
DIM X(10)
RANDOMIZE TIMER
PRINT "Исходный массив:"
FOR N = 1 TO 10
X(N) = INT(RND(1) * 50 - 25)
PRINT X(N); " ";
NEXT N
PRINT
FOR N = 1 TO 10
IF ABS(X(N)) < 10 THEN PRINT "Значение элемента "; X(N); ", его индекс "; N
NEXT N
Другие вопросы из категории
на единицы. Вывести на экран исходный и новый массив.
Читайте также
массив, а на следующей строке - сумму квадратов элементов с начетными индексами.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
Вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения K. (Язык программирования - Паскаль)
полученный массив вывести на экран.
var A: array [1..20] of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 20 do
begin
A[i]:=random(100);
write (' ',A[i] ');
end;
for i:=1 to 20 do
if imod2>0 then
s: = a[i]*a[i];
writeln;
writeln('s=',s);
readln;
end.
генератором случайных чисел (от 0 до 100) задан массив из 20 целых
чисел.составьте программу, с помощью которой напечатайте на одной
строчке исходный массив, а на следующей строке - сумму квадратов
элементов с начетными индексами