Вопрос по информатике:
Задачи на двумерный массив.
Задание 1.
Заполнить двухмерный массив ABCD [1..5,1..5] константами:
1
4
7
-10
13
7
10
13
15
19
13
-16
19
22
25
19
22
25
-28
31
25
28
31
34
37
а) Удвоить все элементы массива, которые> 3.
б) Найти сумму всех элементов полученного массива.
в) Вывести на экран исходный и полученный массив.
Задание 2.
Заполнить двухмерный массив NM [1..5,1..5] константами:
100
101
102
103
104
200
201
202
203
204
300
301
302
303
304
400
401
402
403
404
500
501
502
503
504
Вывести массив на экран так, чтобы четные (2,4) колонки и нечетные (1,3,5) колонки были разного цвета.
Задание 3.
Найти количество нечетных элементов двумерного массива MASSIV [1..10,1..7]. Массив заполните случайными числами. Результат вывести на экран в виде: »Количество нечетных элементов массива = …».
Задачи на одномерный массив
Задание 1.
Задан одномерный массив целых чисел MAS1[1..7].
1. Значения элементов массива ввести склавиатуры.
2. Вывести на экран массив, причем положительные элементы красным цветом, отрицательные синим цветом.
3. Найти сумму положительных элементов и вывести на экран в виде «Сумма положительных элементов =»...
Задание 2.
Задан одномерный массив MAS2 [1..10].
1.Массив объявите как константу типа Integer размером [1..10]со следующими значениями: (-7, 89, 64, -43, 4, 6, 8, -12, 55, 99)
2.Замените все положительные элементы одномерного массива на их квадраты, а отрицательныеудвойте.
3.Результат вывести на экран.
4.Вычислить сумму всех элементов нового массива и вывести на экран.
Исходный массив
Новый массив
-7
-14
89
178
64
4096
-43
-86
4
16
6
36
8
64
-12
144
55
110
99
198
Сумма элементов нового массива
4742
Задание 3.
Даны два массива Aи B, состоящих из одинакового числа элементов. Найти среднее арифметическое элементов каждого и сравнить эти значения. Заполнение массива выберите по своему усмотрению.
Задание 4.
В одномерном массиве А[1..12] необходимо
поменять местами:
а) первый и последний элементы массива;
б) второй и минимальный элементы массива;
в) первый и максимальный элементы массива;
Вывести на экран исходный и результирующий массивы.
паскаль(((
помогите пожалуйста завтра зачет это все надо сдать
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.12.2015 05:23
- Информатика
- remove_red_eye 12245
- thumb_up 39
Ответы и объяснения 1
Задание 3 (двухмерный массив)
var
a:array [1..10,1..7] of integer;
k,i,j:integer;
begin
randomize;
for i:=1 to 10 do begin
for j:=1 to 7 do begin
a[i,j]:=random(9)+1;
write (a[i,j]:4);
if a[i,j] mod 2 0 then k:=k+1;
end;
writeln;
end;
writeln ('Количество нечетных элементов массива = ',k);
readln;
end.
Задание 2 (двухмерный массив)
uses crt;
const
a:array [1..5,1..5] of integer = ((100,101,102,103,104),
(200,201,202,203,204),
(300,301,302,303,304),
(400,401,402,403,403),
(500,501,502,503,504));
var
i,j:integer;
begin
clrscr;
for i:=1 to 5 do begin
for j:=1 to 5 do
if j mod 2 = 0 then begin
textcolor (12);
write (a[i,j]:4);
textcolor (7);
end else begin
textcolor (9);
write (a[i,j]:4);
textcolor (7);
end;
writeln;
end;
readln;
end.
Задание 1 (одномерный массив)
uses crt;
var
a:array [1..7] of integer;
i,sum:integer;
begin
clrscr;
for i:=1 to 7 do begin
write ('A[',i,'] = ');readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
for i:=1 to 7 do
if a[i]>0 then begin
textcolor (red);
write (a[i]:4);
end else begin
textcolor (blue);
write (a[i]:4);
end;
writeln;
textcolor (darkgray);
writeln ('Сумма положительных элементов = ',sum);
readln;
end.
Задание 4 (одномерный массив)
uses crt;
var
a:array [1..12] of integer;
i,buf,min,max:integer;
begin
clrscr;
randomize;
a[1]:=random(14)+1;
min:=1;
max:=2;
writeln ('Исходный массив: ');
write (a[1]:4);
for i:=2 to 12 do begin
a[i]:=random(14)+1;
write (a[i]:4);
if a[i]>a[max] then max:=i else
if a[i]
writeln;
{смена 1-ого и последнего эл}
buf:=a[1];
a[1]:=a[12];
a[12]:=buf;
{смена 2-ого и мин эл}
buf:=a[2];
a[2]:=a[min];
a[min]:=buf;
{смена 1-ого и макс эл}
buf:=a[1];
a[1]:=a[max];
a[max]:=buf;
writeln ('Результирующий массив:: ');
for i:=1 to 12 do write (a[i]:4);
writeln;
readln;
end.
Задание 3 (одномерный массив)
var
a,b:array [1..10] of integer;
i,j:integer;
s1,s2:real;
begin
randomize;
s1:=0;
s2:=0;
writeln;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
b[i]:=random(19)-9;
write (a[i]:4);
s1:=s1+a[i];
s2:=s2+b[i];
end;
writeln;
for i:=1 to 10 do write (b[i]:4);
writeln;
s1:=s1/10;
s2:=s2/10;
if s1>s2 then writeln ('S1 > S2') else
if s1
end.
- 14.12.2015 10:11
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.