Составьте программу, которая формирует массив из 15 случайных целых цифр от -20 до 20 и меняет местами значения первого и последнего элементов массива.на экран выводятся исходные и преобразованные значения.надо
a : array[1..15] of real; n : real; begin randomize; for i: =1 to 15 do a[i]: =random(20)-20;
writeln('исходный массив а: ');
for i: =1 to 15 do
write(a[i]);
n: =a[1];
a[1]: =a[15];
a[15]: =n;
writeln('полученный массив а: ');
for i: =1 to 15 do
write(a[i]);
readln
end.
svetegal
25.03.2020
Var m: array[1..15] of real; i: integer; n: real; begin randomize; for i: =1 to 15 do begin m : =random(20)-20; if( m< 0) then begin m: =sqr(m); end;
evainvest1
25.03.2020
#include < stdio.h> #include < conio.h> main() { int x,y,n,z; printf("chasy minuty\n"); scanf ("%d%d",& x,& y); x=x*5; if (x> y) { while (x< y) { y++; } printf ("%d",y); } else { z=60-y; y=0; while (x> y) {y++; } printf ("%d",z+y); } getch(); }достаточно сыро,но думаю принцип поймешь и сам доработаешь ; )
ulechkaevseeva
25.03.2020
Найти соответствующую информацию в сети интернет и ответить письменно на вопросы: какие объекты или процессы изучают следующие науки: , геология, , астрономия? можно ли создать абсолютно точные компьютерные модели этих объектов и процессов? предположим, вам нужно создать компьютерную модель реакции. какие свойства объектов и процессов были бы существенными для вашей модели? предположим, вам нужно создать компьютерную модель, демонстрирующую связь между изменением численности населения на некоторой территории и изменением площади лесов на этой территории. какой вид компьютерной модели вы выбрали бы? какие объекты и процессы моделировала бы ваша модель? какие свойства этих объектов и процессов были бы существенными для процесса моделирования?
program xxx;
var i : integer;
a : array[1..15] of real; n : real; begin randomize; for i: =1 to 15 do a[i]: =random(20)-20;
writeln('исходный массив а: ');
for i: =1 to 15 do
write(a[i]);
n: =a[1];
a[1]: =a[15];
a[15]: =n;
writeln('полученный массив а: ');
for i: =1 to 15 do
write(a[i]);
readln
end.