Паскаль
5-9 класс
|
Создать массив a из десяти целых чисел, принадлежащих промежутку [0;25). Вывести полученный массив на экран. Подсчитать k - количество элементов массива, значение которых превышает 12.
Помогите пожалуйста!! Очень нужно!!
var a:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(26);
writeln(a[i]);
if a[i] > 12 then k := k + 1;
end;
writeln('Элементов массива превышающих 12: ',k);
end.
Другие вопросы из категории
варианты ответов: а)1,б)4,в)27,г)60,д)81,е)243
плиззззззззззззз
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
Простейшая программа на Паскале будет выглядеть следующим образом:
program upr;
begin
writeln ( ? ); {оператор вывода строки}
end.
Определи, какая фраза пропущена на месте вопросительного знака?
’Hello, World!’
“Lorem ipsum”
Just Another Perl Hacker
ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!
Задали написать программу на язвке паскаль:вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i