составьте программу,которая формирует массив из 10 случайных чисел,принадлежащих промежутку [-9;9] , и выводит эти числа в столбец.
10-11 класс
|
Program zz;
var a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=random(19)-9;
for i:=1 to 10 do
writeln(a[i]);
end.
const
n = 10;
var
x: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива:');
for i := 1 to n do
begin
x[i] := Random(19) - 9;
Writeln(x[i])
end
end.
Тестовое решение:
Элементы массива:
-9
0
-3
4
3
9
-7
9
6
-6
очень срочно)пожалуйста)
Другие вопросы из категории
Сколько фотографий можно буду разместить на карте памяти емкостью 10^9 байт.
program pr9;
type mas= array[-10..10] of integer;
const n = 5;var s,i:integer;a:mas;
begin
writeln('Номера четных отрицательных элементов:');
s:=0;
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if (a[i]<0)and(a[i] mod 2=0)then
begin
write(i,' ');
s:=s+a[i];
end;
end;
writeln;
writeln('Их сумма=',s);
end.
Читайте также
среднее арифметическое нечётных чисел.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.