В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
1234567891243
1234567891243
29.07.2022 12:41 •  Информатика

Нужно составить блок схемы к
p.s.
нужны только не четные​

Показать ответ
Ответ:
dulikosha20051
dulikosha20051
16.09.2022 23:55
С++

#include <iostream>using namespace std;
int main(){ int arr[20]; // Сколько хочешь, столько и ставь // Заполни как хочешь int score = 0; for (int i = 0; i < 20; i++){ if (arr[i] < 13){ score++; }; };}

JAVA

import java.util.*;
import java.lang.*;

class {
public static void main(String[] args){

Scanner sc = new Scanner(System.in); // то для ввода

int arr[] = new int[20]; // Сколько хочешь, столько и ставь
// Заполни как хочешь
int score = 0;
for (int i = 0; i < 20; i++){if (arr[i] < 13){score++;};
}
}
0,0(0 оценок)
Ответ:
kjgftgv
kjgftgv
26.09.2022 01:13
Var
  a : array [1..5, 1..5] of integer;
  i, j : integer;
begin
  randomize;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      a[i, j] := random (1000);
      write (a[i, j], ' ');
    end;
    writeln;
  end;
  for i := 1 to 5 do
    for j := 1 to 5 do
      if i > j then a[i, j] := 1
      else if j > i then a[i, j] := 0;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write (a[i, j], ' ');
    writeln;
  end;
end.

var
  a : array [1..4, 1..5] of integer;
  i, j, m, c : integer;
begin
  randomize;
  m := 1000;
  for i := 1 to 4 do
  begin
    for j := 1 to 5 do
    begin
      a[i, j] := random (1000);
      if a[i, j] < m then m := a[i, j];
      write (a[i, j], ' ');
    end;
    writeln;
  end;  
  c := 0;
  for i := 1 to 4 do
    for j := 1 to 5 do  
      if a[i, j] = m then
        c := c + 1;
  writeln (m, ' ', c);
end.

var
  a : array [1..4, 1..4] of integer;
  i, j, p : integer;
begin
  randomize;
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
    begin
      a[i, j] := random (10);
      write (a[i, j], ' ');
    end;
    writeln;
  end;
  p := 1;
  for i := 1 to 4 do
  begin
    if a[i, i] <> 0 then p := p * a[i, i];
    if a[i, 5 - i] <> 0 then p := p * a[i, 5 - i];
  end;
  writeln (p);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота