у мя паскаль, Составьте программу,которая формируется массив из шестнадцати случайных целых чисел от -20 до 20 и:находить элементы с нулевыми
10-11 класс
|
значениями.
program ask_1;
const k = -20;
b = 20;
type MyArray = Array[1..16]of integer;
var A:MyArray;
i:integer; //
begin
Randomize;
for i:=1 to 16 do begin
A[i] := random(b-k+1);
if (A[i] = 0) then write(i);
end;
end.
Поскольку в задании не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.
Другие вопросы из категории
256-символьный алфавит?
записываются в файл, сжатие данных не производится. Какое из приведенных ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах?
с клавиатуры целое число. Выведите на экран следующие число, удвоенное
значение числа, противоположное число, модуль числа, квадрат числа.
Читайте также
среднее арифметическое нечётных чисел.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
1)Составьте программу, которая заполняет массив 10-ю случайными целыми числами в диапазоне [1..20] и выводит на экран элементы массива в нечетными значениями.
2)Составьте программу заполнения массива из десяти чисел следующими значениями
а) 2 4 6 8 10 (+ 2)
б)3 6 9 12 15 (+3)