begin Randomize; write('Введите число элементов массива (не более 20): '); readln(n); write('Введите целое число С: '); readln(c); write('Исходный массив: '); for i := 1 to n do begin a[i] := Random(41) - 20; write(a[i], ' ') end; write(#13#10,'Массив-результат: '); for i := 1 to n do begin if a[i] > 10 then a[i] := c; write(a[i], ' ') end end.
Интернет – одно из самых удивительных изобретений 20-го века. Он дает безграничные возможности в отношении различных коммуникаций, получения и хранения нужной информации, направлении мультимедиа. Отношение к нему различных слоев населения неоднозначно, содержит даже диаметрально противоположные позиции, но огромное значение его в жизни современного человека не будет оспариваться никем.
Эта слайдовая презентация является результатом ученического исследования на тему влияния интернета на жизнь человека и на все общество в целом. На ее слайдах рассматриваются вопросы:
#include <iostream>#include <ctime>//Бібліотека для рандомуusing namespace std;int main(){ int array[10];//Масив int Max_Num=0,Min_Num=0;// Мінімальне і Максимальне числа bool Positive_or_negative=0;//Число додатнє чи відємне srand(time(NULL));//Рандом.Кожний раз інший. for(int i=0;i<10;++i) { Positive_or_negative=rand()%2; if(Positive_or_negative==false)//якщо Positive_or_negative==0 { array[i]=-(rand()%10);//Рандом від -10...0 } else { array[i]=rand()%10;//Рандом від 0...10 } if(array[i]>Max_Num)//Пошук макс. числа { Max_Num=array[i]; } if(array[i]<Min_Num)//Пошук Мін. числа { Min_Num=array[i]; } cout<<array[i]<<" "; } cout<<endl<<"Max. number is:"<<Max_Num<<endl;//Вивід максимально числа cout<<"Min. number is:"<<Min_Num<<endl;//Вивід мінімально числа system("pause>>void");//закінчення программи.}
k = 20;
var
a: array[1..k] of integer;
c, i, n: integer;
begin
Randomize;
write('Введите число элементов массива (не более 20): ');
readln(n);
write('Введите целое число С: ');
readln(c);
write('Исходный массив: ');
for i := 1 to n do
begin
a[i] := Random(41) - 20;
write(a[i], ' ')
end;
write(#13#10,'Массив-результат: ');
for i := 1 to n do
begin
if a[i] > 10 then a[i] := c;
write(a[i], ' ')
end
end.
Тестовое решение:
Введите число элементов массива (не более 20): 18
Введите целое число С: 99
Исходный массив: -1 -17 -15 16 12 -12 14 19 -1 18 13 11 -17 -6 -17 -2 20 -14
Массив-результат: -1 -17 -15 99 99 -12 99 99 -1 99 99 99 -17 -6 -17 -2 99 -14