Составьте программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и:
5-9 класс
|
а) находит элементы с нулевыми значениями;
б) находит индексы четных элементов;
в) подсчитывает кол-во отрицательных элементов;
г) Определяет, есть ли в этом массиве хотя бы одно число, кратное трем;
д) находит в этом массивеиндексы элементов, значения которых кратны трем;
Помогите, пожалуйста
const n=16; minr=-20; maxr=20;
var a:array[1..n] of integer; k,i:integer; t:boolean;
begin
for i:=1 to n do begin a[i]:=random(maxr-minr+1)+minr; write(a[i],' ') end;
writeln;
k:=0;
for i:=1 to n do begin if (a[i] mod 2=0) and (a[i]<>0) then write(i,' '); if a[i]<0 then k:=k+1 end;
writeln;
writeln(k);
t:=false;
for i:=1 to n do if (a[i] mod 3=0) and (a[i]<>0) then begin if t=false then begin writeln(true); t:=true end; write(i,' ') end;
if t=false then writeln(false)
end.
Другие вопросы из категории
удалённых символов. Предполагается, что внутри каждой пары скобок других скобок нет
2. Начертите блок-схему и напишите паскаль-программу для решения следующей задачи: «Ввести текст длиной до 254 символов. Вывести на экран слова, начинающиеся с заглавной буквы. Количество таких слов также вывести на экран».
Нужна полностью написанная программа
Читайте также
и подсчитывает количество отрицательных элементов.
язык Pascal abc
неотрицательных извлекает квадратный корень.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
а) среднее арифметическое нечётных чисел