Вроде так. Чекни, может быть косяк.
//PascalABC.NET 3.1
begin
var a := ArrRandomInteger(7); a.Println;
WriteLn('Среднее арифметическое: ', a.Average);
end.
Program sh;
var j:integer;
massiv:array [1..1000] of integer;
begin;
begin;
randomize;
for j:=1 to 1000 do
massiv[j]:=random(1000);
end;
for j:=1 to 1000 do
begin;
if (massiv[j] mod 1=0) then
if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
write (massiv[j]:5);
end;
end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"
Данная программа выводит числа, которые являются однозначными или если число, находящееся разряде десятков нечетно, и больше либо равно 50.
Ответ: 39.
Программа на языке C++.
#include < iostream >
using namespace std;
int main() {
int count;
for (int x = 1; x <= 65; x++){
if ((x/10 == 0) || (((x/10)%2 == 1)&&(x >= 50))){
++count;
cout << count << ". " << x << endl;
}
}
}
Подробнее - на Znanija.com - znanija.com/task/28669772#readmore