Язык паскаль . создать числовой массив a[1..n] . значение n вводится с клавиатуры . все отрицательные элементы устранить , а так же определить среднее арифметическое всех элементов . результат вывести на экран .
Var A: Array of Integer; N: Integer; i: Integer; sum: Integer; Begin Randomize; Write('N = '); ReadLn(N); SetLength(A, N + 1); WriteLn('Массив:'); For i := 1 To N Do Begin A[i] := Random(50) - 25; Write(A[i] + ' '); End; WriteLn; WriteLn('Без отрицательных:'); For i := 1 To N Do Begin If A[i] >= 0 Then Write(A[i] + ' '); End; sum := 0; WriteLn; WriteLn('Среднее арифметическое:'); For i := 1 To N Do Begin sum := sum + A[i]; End; WriteLn(sum / N); End.
1. Что такое модель? Модель — упрощенное представление о реальном объекте, процессе или явлении.
1. Назовите основные свойства моделей. Модели воспроизводят существенные свойства оригинала. Одному объекту могут соответствовать несколько моделей. Вид модели определяется целью моделирования.
2. Что такое моделирование? Процесс создания модели.
3. Как можно назвать отношения между объектом-оригиналом и его моделью? Модель — уменьшенная копия оригинала.
4. Какие модели называют натурными? Приведите 2-3 примера натурных моделей. Натурные модели — модели, воспроизводящие свойства прототипа. Примеры: манекен — модель человека, корабль в бутылке — модель настоящего корабля.
5. Какие модели называют информационными? Приведите 2-3 примера информационных моделей. Информационные модели — модели, описывающие свойства прототипа. Примеры: схема компьютера, описание природы.
6. Для каждой из перечисленных моделей назовите действия, которые человек может выполнить и с ней, и с объектом-оригиналом: 1) радиоуправляемая модель самолета; * смотреть на объект * сжечь * управлять полётом
2) словесное описание куртки; * представить * обсудить
3) план квартиры; * представить * обсудить
4) чайник из пластилина в натуральную величину; * смотреть * фотографировать
5) мысленное представление о будущей поездке. * размышлять
Какие действия могут быть выполнены только с оригиналом? 1) залесть внутрь 2) надеть 3) зайти, жить внутри 4) кипятить воду 5) отдохнуть, сделать фотографии
Const n=5; var i,j,pa,pb,pc,pd:integer; a,b,c,d:array[1..n,1..n]of integer;
function prost(n:integer):integer; begin var i:integer; result:=0; for i:=2 to n div 2 do if n mod i=0 then begin result:=1; break; end end;
procedure otvet(p:integer; s:string); begin if p=0 then writeln('На диагоналях матрицы ',s,' есть простые числа') else writeln('На диагоналях матрицы ',s,' нет простых чисел'); end;
begin pa:=1; pb:=1; pc:=1; pd:=1; writeln('Массив А':18,'Массив B':18,'Массив C':18,'Массив D':18); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(100,900); b[i,j]:=random(100,900); c[i,j]:=random(100,900); d[i,j]:=random(100,900); if (i=j) or (j=n+1-i) then begin pa:=pa*prost(a[i,j]); pb:=pb*prost(b[i,j]); pc:=pc*prost(c[i,j]); pd:=pd*prost(d[i,j]); end; end; end; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); write('|'); for j:=1 to n do write(b[i,j]:4); write('|'); for j:=1 to n do write(a[i,j]:4); write('|'); for j:=1 to n do write(a[i,j]:4); write('|'); writeln; end; otvet(pa,'A'); otvet(pb,'B'); otvet(pc,'C'); otvet(pd,'D'); end.
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
End.