Помогите с программой, плиз)
5-9 класс
|
Составте программу, которая заполняет массив а[1..8] случайными целыми числами от 1 до 10 и выводит на экран количество элементов с чётными значениями и сумму элементов массива с нечётными значениями
Program z10;
var a,b: Array [1..8] of integer;
i,s,k:integer;
Begin
Randomize;
For i:=1 to 8 do
begin
a[i]:=random(10);
if(a[i] mod 2=0)then begin
s:=s+a[i];
k:=k+1;
end;
end;
write(s,' ',k);
end.
Другие вопросы из категории
б) Перевести в десятичную систему счисления:
1. двоичные числа 1101 и 1010101
2. восьмеричные числа 25 и 71
1. Сколько бит информации содержит сообщение о том, что достали один из 8 разноцветных карандашей?
2. В корзине лежат 32 красных шара. Сколько информации содержит сообщение о том, что из корзины достали красный шар?
3. Спортсмен занял одно место из 500. Сколько информации содержит сообщение о том, что он занял 300 место.
записан с использованием 65536 символьного алфавита. Сколько символов
мог бы содержать текст, занимающий этот же объем, но записанный с
помощью 2-символьного алфавита?
Читайте также
Найти средний рост класса. Написать программу. 10 человек
Самый наименьший рост 162 самый высокий 170
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
если пофессионал помогите в двойне плиз !!!!
Заменить цифры от 1 до 10 словами. Например: 1 - "один" и т.д.Помогите составить программу и блок-схему.