Ребят,помогите,кто силен в информатике.!!! Дан массив 6 на 7 заполнить его случайными числами.
10-11 класс
|
var a:array[1..6,1..7] of integer;
i,j:integer;
begin
for i:=1 to 6 do begin
for j:=1 to 7 do begin
a[i,j]:=random(2);
write(a[i,j]:2);
end;
writeln;
end;
end.
Другие вопросы из категории
Составить программу, которая выводит меню и при нажатии вводе цифры вычисляет соответствующее
выражение:
1 - y= (a+b)^2
2 - y= a^2-b^2
3 - y= 1/(a+b)
Читайте также
цифр(включая однозначные числа). 2. вставить число k перед всеми элементами, в которых есть цифра 1(k вводить с клавиатуры). 3. переставить первые три и последние три элемента местами, сохраняя их следование.
(концы интервала входят тоже) и вывести на экран монитора в матричном виде! ДЕЛАЕТСЯ ВСЕ НА GWBASIC!!!
ими способами,вкратце обьяснить что вы написали чтобы понятно было)
Ребят, помогите! Тема: одномерные массивы. Две задачи:
1) Написать программу, которая из заданного одномерного массива размерности N находит сумму только тех элементов, значения которых больше некоторого значения S.
S=5; Массив: 0,4 5,6 -2 10,1
2) При поступлении в ВУЗ абитуриенты, получившие "Двойку" на первом экзамене, ко второму не допускаются. В массиве A[N] записаны оценки экзаменующихся, полученных на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену!
Заранее благодарю!