Сформировать одномерный массив из элементов массива T(4,4),умноженных на 0,25
10-11 класс
|
var
a:array [1..16] of real;
t:array [1..4,1..4] of integer;
i,j,k:byte;
begin
randomize;
for i:=1 to 4 do begin
for j:=1 to 4 do begin
t[i,j]:=random(9)+1;
write (t[i,j]:4);
end;
writeln;
end;
k:=1;
for i:=1 to 4 do
for j:=1 to 4 do begin
a[k]:=t[i,j]*0.25;
write (a[k],' ');
k:=k+1;
end;
readln;
end.
Другие вопросы из категории
давала информационное сообщение со
скоростью 20 байт в секунду. Сколько
символов содержало данное сообщение,
если она использовала алфавит из 32 сим-
волов?
Помогите пожалуйста составить программу в паскале.
Или тут другое решение?
Читайте также
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
экран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива.
паскаль массивы
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.