создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с
5-9 класс
|
клавиатуры. посчитать сумму элементов больгих 40
var
a:array [1..15] of integer;
i,z,s:integer;
begin
write ('Z = ');readln(z);
for i:=1 to 15 do begin
a[i]:=i*z;
if a[i]>40 then s:=s+a[i];
write (a[i],' ');
end;
writeln;
writeln ('Summa: ',s);
readln;
end.
Program Mysmka;
uses crt;
const n=15;
var
a:array[1..n] of real;
i:integer;
z,sum40:real;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите загадочное число Z ');
readln(z);
writeln('Элементы массива:');
{создание и вывод массива}
sum40:=0;
for i:=1 to n do
begin
a[i]:=i*z;
write (a[i]:7:2);
if a[i]>40 then sum40:=sum40+a[i];
end;
writeln();
writeln('Сумма чисел, больших 40: ',sum40:7:2);
end.
Другие вопросы из категории
клавиатуры. Сколько км он проехал? Какова его средняя скорость?
Написать прогруамму в pascal
Читайте также
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
отсортировать в порядке возрастания элементов. Вывести:
- матрицу
- одномерный массив до сортировки
- одномерный массив после сортировки прошу. срочно!
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
2) Введите массив В из10-ти элементов по формуле i(в квадрате) - 1. Вывести с пояснениями а[i]=0