Массивы. Вывести четные числа

@Nevera · Регистрация: 05.04.2012

Author24 — интернет-сервис помощи студентам

Взять матрицу с размерностью N введите размерности элементов матрицы все четные числа

@3a9Ic · 16.05.2012, 17:57

Pascal

Uses CRT;
var a:array[1..20,1..20] of integer;
    i,j,n:integer;
begin
     ClrScr;
     write('Ââåäèòå ðàçìåðíîñòü ìàòðèöû = ');Read(n);
     for i:=1 to n do
     for j:=1 to n do
     begin
          a[i,j]:=Random(21); while (a[i,j] mod 2<>0) do a[i,j]:=Random(11);
          gotoxy(j*5+5,i+3);
          write(a[i,j]);
     end;
end.

@Nijaz · 16.05.2012, 18:00

Pascal

uses crt;
const N=10;
var
i,b,j: integer;
a: array[1..N] of integer;
begin
    randomize;
    i:=1;j:=1;
    while(i<=N) do
    begin
        b := random(100);
        if (b div 2 = 0) then
        begin
            A[j]:=b;
            j:=j+1;
        end;
        i:=i+1;
    end;
    for i :=1 to N do
    write(A[i], '  ');
    readln;
end.

Добавлено через 2 минуты
видимо, читать разучиваюсь

@Nevera · 16.05.2012, 18:23 **[ТС]**

а почему вторая матрица выдает нули?

@3a9Ic · 16.05.2012, 18:36

Вам Матрица нужна? Или массив. А то тема называется массив ([1..n]), а задание на матрицу ([1..n,1..n]).

@Nevera 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 5
		1
	Массивы. Вывести четные числа 16.05.2012, 17:44. Показов 2500. Ответов 4 Метки нет (Все метки) Взять матрицу с размерностью N введите размерности элементов матрицы все четные числа 0

@Nevera 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 5
	16.05.2012, 18:23 [ТС]	4
	а почему вторая матрица выдает нули? 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	16.05.2012, 18:36	5
	Вам Матрица нужна? Или массив. А то тема называется массив ([1..n]), а задание на матрицу ([1..n,1..n]). 0

Опции темы