задан массив из n целых чисел которые водятся с клавиатуры. элементы кратные 5 увеличить в 2 раза, остальные уменьшить на 10.
5-9 класс
|
Program asd;
Var A:array[1..250] of integer;
B:array[1..250] of real;
i,n:integer;
BEGIN
write('Введите n: ');
Readln(n);
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Write('A[',i,']: ');
Readln(A[i]);
end;
Writeln;
For i:=1 to n do
begin
If (A[i] mod 5=0) then
B[i]:=A[i]*2
else
begin
B[i]:=A[i]*0.10;
end;
Writeln('A[',i,'] = ',B[i]);
end;
END.
Другие вопросы из категории
от деления этого числа на 2.
2. Ввести двузначное число. Определить, какая цифра в числе больше.
3. Дано число. Является ли число 7 его делителем?
пасудзіны p=dgh (g=9.8м/с); б) масу вадкасці ў кожнай пасудзіне m=dV=dhS (S=3.14R); в)сумарную масу вадкасці. Зыходныя даныя (радыус пасудзіны R, вышыня слупа вадкасці h) уводзяцца ў масіў з клавіатуры, рэзулятат выводзіцца на экран.
program d;
var a, b, c: integer;
begin
for c:= 1 to 5 do
begin
a:= a+ 1;
b:= b- 1;
end;
end.
Читайте также
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
чисел и выводит на экран этот же массив в прямом и обратном порядке. Протестировать алгоритм на произвольных массивах, состоящих из 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. Убедительная просьба написать решение целиком и до наступления ночи. Я являюсь дилетантом в Паскале, а эти три задачи являются моим домашним заданием по информатике на завтра.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.
Задан массив из N вещественных чисел,которые вводятся с клавиатуры. Отрицательные элементы уменьшить на 5, остальные заменить их номерами.Я ввела эту задачу в паскале и у меня требует ввод данных, что мне писать